r— ( 

H 



O (J 

•l-H _ 

-t— » 

o 



a 



Q 

< 

CO 



H y 1 



a. 
o 



53 



CUD .2 

I ^ I. 



o 

CO 

Q 



L I .3 



a 
< 



s 

a; 



S 




I J i I 















li 
1 


•f 


^ 1 

■>> 


i 




1 


Q 


u 


8 









SOFTWARE APPENDIX 

Including 
Part I, pages 1 to 62, and 
Part II, pages 1 to 32. 
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o 
ffl 
m 



# PlDS_globals.cpk 

# 

######################################################################## 

# 

# PIDS (tm) 

# Pharmacy Intervention DocuTnentation System 

# Copyright ® 2002 Integrated Software Systems, L.L.C. 

# 

#########################################################!*############## 
# 

# Version: 1.0 

# Date: 8/15/2001 

# Author: Todd Viegut & Brad Tice 



19 # GLOBAL variable definitions used throughout the PIDS application. 

2 0 # 

21 variables; 



numeric nLabValuesCreated; 



numeric nTotalFrames =14; # ADJUST THIS IF ANOTHER FRAME IS ADD3D TO THE ARRAY BELOW 
! ! ! 

object objPIDSFrames [nTotalFrames] = PIDS_intro_f rame, intervention_start_info_f rame, 
drug_related_j>roblera_frame, prescription_type_f rame, pat ient_risk_f rame, 
problem_type_f rame, intervention_recommendation_f rame, intervention_activity_f rame, 
intervention_result_frame, intervention_time_f rame, patient_inf o_f rame, 
lab_values_frame, soap_f ollow_up_f rame, save_intervention_f rame; 

numeric nContainsSelector [nTotalFrames] = false, false, true, true, true, true, true, 
true, true, true, false, false, false, false; 

object obj InterventionSelectors [nTotalFrames] = drug_related_problem_selector, 
drug_related_problem_selector, drug_related_problem_selector, rx_selector, 
patient_risk_selector, problem_type_selector, intervention_recommendation_selector, 
intervention__activity_selector, intervention_result_selector, 

intervention_time_selector, intervention_time_selector, intervention_time_selector, 
inter-vention_time_selector, intervention_time_selector; 
numeric DRP_FRAME_NUMBER = 2; 

# drug related problem arrays . . . 
: nDRPSelected = 0; 

: nTotalDRPFrames =7; # ADJUST THIS IF ANOTHER FRAM3 IS ADDED TO THE ARRAY 

object obj DRPFrames [nTotalDRPFrames] = unnecessary_drug_therapy_f rame, 
wrong_drug_f rame, dosage_too_low_f rame, adverse_drug_reaction_f rame, 
dosage_too_high_f rame, inappropriate_compliance_f rame, need_therapy_f rame; 
object objDRPSelectors [nTotalDRPFrames] = unnecessary_drug_therapy_selector, 
wrong_drug_selector, dosage_too_low_selector, adverse_drug_reaction_selector, 
dosage_too_high_selector, inappropriate_compliance_selector, need_therapy_selector; 

# NOTE here that element 0 is filler so that the array can be used as 1-based array. . . 
numeric nDRPSelectionListOff sets [nTotalDRPFrames +1] =0, 0, 5, 10, 16, 22, 26, 32; 

numeric nTotalTextEntries =9; # ADJUST THIS IF ANOTHER BUTTON IS ADDED TO THE ARRAY 
BELOW i : ! 

object objTextEntryButtons [nTotalTextEntries] = aIlergies_button, med_history_button, 
f amily_history_button, social_history_button, sub j ective_button, objective_button, 
assessment_button, plan_button, f ollow_up_button; 

object obj SearchTextEntryButtons [nTotalTextEntries] = search_allergies_button, 
search_med_history_button, search_f amily_history_button, search_social_history_button, 
search_subjective_button, search_objective_button, search_assessment_button, 
search_jplan_button, search_f ollow_up_button; 

object obj TextEntryTextFields [nTotalTextEntries] = txAllergies, txMedHistory, 
txFamilyHistory, txSocialHistory, txSubjective, txObjective, txAssessment, txPlan, 
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txFollowUp; 

string sTitles [nTotalTextEntries] = "Allergies", "Ked History", "FaTily History" 
■Socxa. Haatory", "Subjective", "Objective", "Assessment", -Plan", "Follow Uo"- 
string sDBTextEntryMemos [nTotalTextEntries] = "", " , >■ i. ^ „„ „„" ,', „ . 

numeric nAllergies = 0; 
numeric nMedicalHistory = 1; 
numeric nFamilyHistory = 2 ; 
numeric nSocialHistory = 3 ; 
numeric nSOAPSub j ective = 4 ; 
numeric nSOAPObj ective = 5; 
numeric nSOAPAssessment = 6; 
numeric nSOAPPlan = 7; 
numeric nSOAPFollowUp = 8; 

# 

# intervention weights... 

# NOTE that all of their zero-th elements have a weight of 0 as fl]]er so 

# that it will be a 1-based array... 

numeric nDRPWeights [35] = 0, 3, 3, 3 , 4 , 5 , 3 , 3 , 3 , 3 , 4 , 3 3 3 3 3 3 3 3 
3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3; ' ' ' ' ' ' ' 

numeric nRXTypeWeights [3] = 0, 0, 0; # >-eight n/a to RX type so default to 0 
numeric nPatientRiskWeights[4] = 0, 3, 2, 1; 
numeric nProblemTypeWeights [3] = 0, 2, 1; 

numeric nRecommendationWeights [13] = 0, 3, 3, 3, 3, 3, 3, 3 1 1 3 2 1- 
numeric nActivityWeights[9] =0,3,3,3,3,2,1,4,1; 
numeric nResultWeights [5] = 0, 3, 2, 1, 1; 
numeric nTimeWeights [5] = 0, 0, 0, 0, 0; # n/a 
numeric nLabValueWeights [5] = 0, 0, 0, 0, 0; 

# list box selections 
numeric nTotalSelections = 10; 
#numeric nNONSl = 0; 
#numeric nN0NH2 = 1; 
numeric nDRPSelection = 2; 
numeric nRXTypeSelection =3; 
numeric nPatientRiskSelection = 4; 
numeric nProblemTypeSelection = 5; 
numeric nRecommendationSelection = 6; 
numeric nActivitySelection = 7; 
numeric nResultSelection = 8; 
numeric nTimeSelection = 9; 

numeric nDBlnterventionSelections [nTotalSelections] = 0, 0 



0, 0, 0, 0, 0, 0; 



numeric nTotalSearchableRecords; 
numeric nCurrentDisplayedRecord; 



100 
101 
102 

103 end, 



numeric nCurrentPrame; 
# preferences 

numeric f SpeedEntryEnabled; 
string sWirelessUHL; 
string sLocationID; 
string sRotationID; 
string sUserlD; 
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107 # PlDS_lists.cpk 

108 # 

# PIDS (tm) 

# Pharmacy Intervention Documentation System 

# Copyright ® 2002 Integrated Software Systems, L.L.C. 

±17 # Version: 1.0 

±i8 # Date: 1/6/2002 

j-i-v # Author: Todd Viegut &. Brad Tice 

# 

-^22 # General purpose string arrays for PIDS (tm) pop-up lists. 

x2s numeric nAllergiesListSize = 23; 

^2= string^allergies_list [nAllergiesListSize] = # text_entry_allergies_sei 

i2S "Acetaminopnen", 

129 "Aspii-in", 

i 1-5 i> "Barbiturates", 

.5;!^ j-3i "Benzodiazepines", 

" 13<i "Cepnalosporins", 

-3" "Codeine", 

I'p 134 "Digitalis", 

13 5 "arythromycin", 

f'-'^ -l3S "Fish Product Derivatives", 

%M 13' "Iodine Derivatives", 

|, -"^^ "Local Anesthetics (Amides)", 

H: 139 "Local Anesthetics (Esters)", 

' "Nitrofurantoin", 

i- ■'-^^ "Non-steroidal Anti- inflammatory Agents (Mo-rin) " 

-42 "Penicillins", 

-•i- "Phenotniazines", 

f .i.<4 "Red Dye", 

, -'^ "Sulfonamide Derivatives (Sulfa)", 

•'C "Tartrazine (FD&C Yellow 5)", 

i "Tetracycline", 

^ "Vaccines", 

(,\: "Wo Known Allergies"; 

numeric nDrugsListSize = 207; 



151 


String drugs_l 


152 


"A.ccolate'' 




"Accupri L " 


154 


"Accutane" 






15S 


" Adder al L " 


157 


"Alesse", 


158 




159 


"Aiphagan" 


160 


"Altace" , 


ISl 






"Anibien"! 


1S3 


"Amoxil", 


164 




165 


"Arthrotec 


166 


"Atrovent" 


167 


"Augment in 


ISS 


"Avapro", 


169 




170 


"Azmacort 


171 




172 


"Beconase f 




"Benzamycir 


174 


"Biaxm", 


175 


"B.iaxin S-as 


176 


"Buspar" , 
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-S-7/ "Buspar Dividcse", 

178 "Calan", 

179 "Ccilori SE", 

180 "Cardizem", 
' 181 "Cardut-a", 

1S2 "Ceftiri", 

183 "Cefzil", 

184 "Ce_ebra", 
135 "Celecrex" , 

186 "Ciorc", 

187 "Claritz^n", 
188 
189 
190 

192 "Cov-madin"/ 

193 "Ccvera-HS", 

194 "CoTiaar", 

195 "Darvocer N-lOO", 

196 ''Daypro", 
137 "DeiLtasone", 

"Demadex", 

-!-9a "Derauien", 

ij " Depakot e " , 
"Desogen", 

~r.i 202 "Differ^n", 

, ^03 "Di fL-jcsn", 

' 204 "Dilantin", 

2n '-Diovan", 

p^li 2 06 "Dyazide", 

Fi<* 207 "Effexor", 

208 -'Sffexor", 

2 09 "Effexor XR", 

211 ■'Sstrace'', 

Si 212 "Sstraderm" , 

'jI-' "Estratest", 

' 2lA "istratest HS", 

I 'Flonase", 

Lf; ^liJ "Floxan", 

S ■ = ^l^ ''Fosar.ax" , 

iiis'^-'y "Glucopr.age" , 

! "2i. "GXucctrol", 

■^22 ''Glynase", 

223 "Humulin 7C/30", 

224 "Humulin N", 

225 "Humulin R", 

226 '■Hytrin", 

227 "Hyzaar", 

228 "Imd'jir", 

229 "iFiitrex", 

230 "K-Dur", 

231 "K-Dur", 

232 "K_onop:Ln." , 

233 "Ldc-Hvdrir-«, 

234 Lamia il", 

23 5 "Lamisii Oral", 

23 6 "Lanoxin", 

237 "Lasix", 

238 "Lescol-, 

239 "Levaqu-:!-.", 

240 "Li.Dicor", 
2-31 ■'L,c/Ovra_", 

242 "Lodine", 

243 "LodineXL'', 

244 "Loestri.r.", 

245 "Loo-ortsor", 

246 '-LoraciG", 

247 "Lcte-sin", 
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24 9 
250 
251 
252 

254 
255 
2 56 
257 
258 
259 
260 
261 
262 
263 
2 64 
265 
266 



t 

H?? 278 

!m 280 
" 2 81 



302 
303 
3 04 
3 05 
306 
307 
308 
3 09 
310 
311 



'Kacrobid" , 

'KetrcGel Vaginal " , 
'Kevacor Risperdal' 

Kiacalci'-:", 

Nasacort"! 
Nasacort AC"', 
Nascnex" , 
Nsurontin", 



istat", 



Nit: 
■'Nic: 

"Nizoral Snampoo", 
"Nizoral tablets", 
"Nizoral Topical", 
"None " , 
"Nordette'', 
"Norvasc" , 
"Novel in 7C/30", 
"Novolin N", 
"Novolin R", 

"One Touch Test Strips", 

"Ortho-Cept", 

" Or the - Cyc 1 en " , 

"Ortho-Kovuim" , 

"Ortnc Tri-Cyclen", 

"Other", 

"Oxycont xn", 

"Paxil", 

"Pepcid", 

•' Pnenergan" , 

"Piendil", 

"Pravacnol", 

"Prednisone", 

"Premarin Vaginal", 
"Preippriase", 
"Prempro" , 
"Prenate Ultra", 
"Prevacid", 
" Prilosec'', 

"Prinziae '', 

"Procardia", 

"Propulsid", 

"Proscar" , 

"Proventil 

" Prevent il HFA", 

"Provera " , 

"Prozac" , 

'•Relafen", 

"Reiner on" , 

"Retin-a", 

"Rezulin" , 



"Syntl-ro 



"Ticlid", 
"T:.mopti< 
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319 "Timoptic XE", 

320 "ToiDradex", 

321 "ToBrol XL", 

322 "Tri-L.evlen% 
32 3 "Triphasil", 

324 "Trusopt", 

325 "Tussionex", 

326 "Ultram", 

327 "Valium", 

328 "Valtrex", 

323 "Vancenase", 
3 30 "Vanceril", 

331 "Vaseretic", 

332 "Vasotec", 

333 "Ventolin", 
3 34 "Verelan", 

335 "Viagra", 

336 "Vicodln", 

337 "Vicodin ES", 
333 "Vicoprofen", 
3 39 "Vioxx", 

340 "Voltaren XR", 

■i-i-i- "Wellbutrin", 

342 "Wellbutrin", 

^43 "Westcort", 



"Xalata: 

" Zantac " , 
"Zaroxolyn", 
"ZestoretiC 
"Zestril", 
"Zlac" , 



"Zocor" , 
"Zoloft", 

"Zovirax "epical", 
"Zyban", 
"Zyprexa", 
" ZyTJrexa " , 
" Zyrtec"; 
numeric nDiseasesListSize = 41,- 

^^'^'''"None"^^^^^""''^^'^^"^^^^^^®^'"^^*^^^^®^ " ^ text_entry_family_history_selector 
"Unknown" , 

"Acne or Psoriasis", 
"AIDS", 

"Allergies (Drug Related) ", 
"Allergies (Kon-Drug Related) ", 
"Alzheimer's Disease", 
"Angina ", 

"Anxiety Disorders", 

"Asthma ", 

"Bipolai- Disorders", 

"Cancer" , 

"Congestive Heart Failure", 

"Constipation & Diarrr.ea", 

"Diabetes Kellitus", 

"Epilepsy" , 

"GERD" , 

"Glaucona", 

"Gout", 

"Headache Disorders", 
"Heart Arrythmias " , 

"Hyperl::pidenia", ---rap> 

" Hyper ten si on " , 

" Infect xous Disease", 

"Inf lan-.piatory Bowel Disease", 

"Ku;tipie Sclerosis", 

"Nausea & Vomiting", 

"Nutrition Related Disorders", 
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392 "Other 
3S3 "Paxn I 



394 "Pai-.c 

395 "Peptic Ulcer Cisease", 
3S6 ''Premenstrual Syndrcme", 
397 "K-euxatoid Arthritis", 
39S "Sleep Disorders", 

399 "Stroke", 

^00 "Substance-Related Disorders", 

4 01 "Thyrcid Disorders"; 

402 

403 string social_list [5] = # text entry social history selector 

404 "Caffeine", - _ _ jr_ 

405 "Diet and Sxercise", 

406 "itOH", 
'-t07 "Tobacco", 

"Illicit Drug Use"; 

- 0 # 

4J.1 it Lab Values lists... 

'^■'^ # 

'i±3 String blood_pressure_list [3] = 

'il'> "Systolic Blood Pressure", 

t'tZ «16 "D-Iastolic Blood Pressure"; 

h,^ 417 string respiratory_value_list [4] = 

01 418 '■ li?lease select onel ", 

fU "Respiratory Rate (per minute)", 

420 "PEFR {% personal best)", 

^'■J 421 "PEFR ;% predicted) "; 

tfl 422 string blood sugar values [4] = 

r: 423 - :Please~select one: ", 

424 "Fasting glucose (rag/dl)", 

8: 425 "Nor.-i-asting glucose (mg/di; ", 

• - 426 "Hemoglobin Ale (%) "; 

,,,, 427 string lipid_values_list [6] = 

>y 428 " :please select one! ", 

I *29 "Total Cholesterol", 

' - 4_,J "BD-L", 

U "LDL", 

"Triglycerides", 

|- ^3^ "TC/HDL ratio"; 

!f^34 String osteoporosis_values_list [3] = 

435 " [Please select one] 

436 "T-Score", 

437 "Z -Score"; 

438 string liver_function_tests_list[4] = 

439 " [P_ease select one" 
44 0 -ALT", 

441 "AST", 

442 "Alk Fhos"; 

443 string eleGtrolytes_list [5] = 

444 ■■ ;piease select one: ", 

445 "Maf", 
44 6 "K'-" , 
447 "C1-", 
443 •'P04"; 

449 String anticoagulation_values list[2] = 

450 " iPlease select one:". 



451 



string renal_f unction_list [4 

" 1 Please select one; 
"BUN" , 

"Creatinine Clearance (C 
string hematology_list [4] = 
" iPlease select one:", 
"White Blood Cells", 
"Segs", 
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4 61 ^ "Bands"; 

463 # Lab values list... 

464 String complete<i_lab_values [20] = " " ; 

4 6" 5 end; 

4S6 

467 
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# PIDS.csl 

# 

# PIDS (tm) 

# Pharmacy Intervention Documentation System 

# Copyright ® 2002 Integrated Software Systems, LLC 
# 



4 79 


# Versi 


Dn : 1.0 




4 80 


# Date: 


8/15/2001 




481 


# Autho 


Todd Viegut & Brad Tice 






# 






483 


# 






484 


# MAIN SOURCE CODE FILE FOR PIDS (tm) 




485 


# 






486 








487 


# 






488 


include 


" PIDS_date_l ib . cpk " ,- 




489 


include 


''casler26 . cpk"; 




4S0 


include 


"casl_net_errors . cpk" ; 


# 


491 


include 


"PIDS gLoxjals . cpk"; 




492 


include 


"PIDS lists. cpk" ; 


# 


pv. 493 


include 


"PIDS_sync.cpk"; 




4 94 


include 


"PIDS_raisc.cpk"; 


# 


Q 495 


include 


"PIDS_wizards .cpk"; 




W 


include 


"XML_parser . cpk" ; 




n 

tU 4 98 


# 







GLOBAL variables 

include the string lists for PIDS selectors 
synchronization functions include file 
miscellaneous function for PIDS 



"t " # Standard functions for moving data between 

1 # interventions and DB records and vice versa. 

- # Also included is the RESET method to clear 

503 # all fields in order to apply another 

='4 # intervention. 

' 505 # 

i 506 # 

function ResetFieldsForNextlntervention; 
. au» variables; 

numeric nindex; 

~ 512 fUpdateMode = false; 

513 # 

514 nLabValuesCreated = 0; 

515 nDRPSelected = 0; 

516 nDBSynced = 0; 

517 # 

518 # Clear stare fields 

519 txLocationlD. display = sLocationID; 

520 #hide intervention_date_button; 

521 intervention_date_button. display = GetCurrentlnterventionDate; 

522 txRotationlD. display = sRotationID; 

52 3 txUserlD. display = sUserlD; 

524 txPrescribedDrug . display = ""; 

525 txDisease. display = ""; 

526 txPrescriber. display = ""; 

527 # 

528 # Clear db numeric fields... 

529 for nindex = 0, nindex < nTotalSelections; 

530 nDBInterventionSelections[nIndex] = 0; 

531 next nindex + 1; 

532 # 

533 # Clear selectors . . . 

534 for nindex = 0, nindex < nTotalFrames; 

53 5 hide obj InterventionSelectors [nindex] ; 

53o obj InterventionSelectors [nindex] .selected = 0; 

537 next nindex + 1; 
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# Clear DRP selectors... 

for nindex = 0, nindex < nTotalDRPFrames; 
hide obj DRPSelectors [nindex] , ■ 
objDRPSelectors [nindex] .selected = 0; 

next nindex + 1; 
# 

txPatientlD. display = ""; 
# 

# Clear db memo fields 

for nindex = 0, nindex < nTotalTextEntries; 

sDBTextEntryMemos [nindex] = ""; 
next nindex + 1; 

# Clear text fields... etc. 

for nindex = 0, nindex < nTotalTextEntries; 

objTextEntryTextFields [nindex] .display = 
next nindex + 1; 



# Miscellaneo-us fields . . . 
txtLabValues . display = " " ; 

f unc t i on Move Intervent ionToDBFie Ids ; 
variables; 
il^ 5 6b string sValue; 

gsi 56 J numeric nindex; 



, - # set primary key index. . . 

- ' I nDBPIDSKeyField = GetlnterventionKeyld; 

; &7i nDBSynced = 0; 

' 7 # 

574 sDBLocationID = txLocationlD. display; 

sDBInterventionDate = intervention_date_button . display; 
sDBRotationID = txRotationID . display; 
sDBUserlD = txUserlD. display; 

sDBPrescribedDrug = txPrescribedDrug. display; 
sDBDisease = txDisease . display; 
sDBPrescriber = txPrescriber. display; 

! o82 # set db numeric fields. . . 

a nDBDrugRelatedProblemField = nDBInterventionSelections[nDRPSelection] ; 

584 nDBRXTypeField = nDBInterventionSelections [nRXTypeSelection] ; 

^SS nDBPatientRiskField = nDBInterventionSelections [nPatientRiskSelection] ; 

586 nDBProblemTypeField = nDBInterventionSelections [nProblemTypeSelection] ; 

bS7 nDBRecommendationField = nDBInterventionSelections [nRecommendationSelection] ; 

o3a nDBActivityField = nDBInterventionSelections [nActivitySelection] ; 

s89 nDBResultField = nDBInterventionSelections [nResultSelection] ; 

oSv nDBTimeField = nDBInterventionSelections [nTimeSelection] ; 

591 # 

592 # 

5S3 for nindex = 0, nindex < nTotalTextEntries; 

594 get objTextEntryTextFields [nindex] , sValue; 

595 SDBTextEntryMemos [nindex] = sValue; 

596 next nindex + 1; 

597 M 

598 M set db memo fields 

"^hO sDBPatientlDField = txPatient Id . display; 

600 sDBAllergiesField = SDBTextEntryMemos [nAllergies] ; 

sDBMedicalHistoryField = SDBTextEntryMemos [nMedicalHistory] ; 

f 0/ sDBFatnilyHistoryField = SDBTextEntryMemos [nFamilyHistory] ; 

sDBSocialHistoryField = sDBTextEntryMemos [nSocialHistory] ; 

sDBSOAPSubjectiveField = sDBTextEntryMemos [nSOAPSubj ective] ; 

sDBSOAPObjectiveField = sDBTextEntryMemos [nSOAPObj ective] ; 
60 7 sDBSOAPAssessmentField = sDBTextEntryMemos [nSOAPAssessment] ; 

60S sDBSOAPPlanField = sDBTextEntryMemos [nSOAPPlan] ; 

609 sDBSOAPFollowUpField = sDBTextEntryMemos [nSOAPFollowUp] ; 
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611 sDBLabValues = txtLabValues .display; 

612 nDBDOIScore = CalculateDOIScore; 

613 end; 

614 

€15 function MoveDBFieldsToIntervention; 

616 variables; 

617 numeric nindex; 

618 end; 

S19 # 

62 0 # set primary key index. . . 

621 nInterventionKeyld = nDBPIDSKeyField; 

622 # 

623 txLocationlD. display = sDBLocationID; 

624 hide intervention_date_button; 

625 intervention_date_button. display = sDBInterventionDate; 

626 txRotationlD. display = sDBRotationID; 

627 txUserXD. display = sDBUserlD; 

628 txPrescribedDrug. display = sDBPrescribedDrug; 

629 txDisease .display = sDBDisease; 

630 txPrescriber. display = sDBPrescriber; 

631 # 

bj2 nDRPSelected = GetDRPTypeIndex{nDBDrugRelatedProblemField) ; 

, 6-3 # 

634 nIndex =0; 



for nindex = 0, nindex < nTotalDRPFrames; 
if (nindex = nDRPSelected) ; 

Ob jDRPSelectors [nindex - 1] .selected = 



fis GetDRPTypeSublndexCnDBDrugRelatedProblemField) ; 

i% 639 else; 

o40 Ob jDRPSelectors [nindex] .selected = 0; 

Ifi 641 end_if; 

642 next nindex + 1; 

6,- # 
u 644 # Set DB numeric fields... 

! nDBInterventionSelections[nDRPSelection] = nDBDrugRelatedProblemField; 

f nDBInterventionSelections[nRXTypeSelection] = nDBRXTypeField; 

nDBIntervent ionSelect ions [nPatientRiskSelect ion] = nDBPatientRiskField; 
i nDBInterventionSelections[nProblemTypeSelection] = nDBProblemTypeField; 

^ nDBInterventionSelectionstnRecommendationSelection] = nDBRecommendationField; 

nDBIntervent ionSelections[nActivitySelect ion] = nDBActivityField; 

nDBInterventionSelectionsEnResultSelection] = nDBResultField; 
I nDBInterventionSelections[nTimeSeleGtion] = nDBTimeField; 

Co # 

654 objInterventionSelectorsLnDRPSelection] . selected = nDRPSelected; 

6 55 objInterventionSelectors[nRXTYpeSelection] .selected = 

nDBInterventionSelections [nRXTypeSelection] ; 

656 objInterventionSelectors[nPatientRiskSelection] . selected = 
nDBInterventionSelections [nPatientRiskSelection] ; 

657 obj InterventionSelectorsInProblemTypeSelection] . selected = 
nDBInterventionSelections [nProblemTypeSelection] ; 

658 objInterventionSelectors[nRecommendationSelection] .selected = 
nDBInterventionSelections [nRecommendationSelection] ; 

659 obj InterventionSelectors[nActivitySelection] . selected = 
nDBInterventionSelections [nActivitySelection] ; 

660 obj InterventionSelectors[nResultSelection] . selected = 
nDBInterventionSelections [nResultSelection] ; 

661 obj InterventionSelectors[nTimeSelection] . selected = 
nDBInterventionSelections [nTimeSelection] ; 

6 62 # 

663 # set db memo fields 

664 txPatientld. display = sDBPatientlDField; 

Sot. sDBTextEntryMemos[nAllergies] = sDBAllergiesField; 

666 sDBTextEntryMemos[nMedicalHistory3 = sDBMedicalHistoryFleld; 

€67 sDBTextEntryMemos[nFatnilyHi story] = sDBFamilyHistoryField; 

6 68 sDBTextEntryMemos[nSocialHistory] = sDBSocialHistoryField; 

669 # 

670 sDBTextEntryMemos[nSOAPSubjective] = sDBSOAPSubjectiveField; 

671 sDBTextEntryMenios[nSOAPObjective] = sDBSOAPObj ectiveField; 
572 sDBTextEntryMemos[nSOAPAssessment] = sDBSOAPAssessraentField; 
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673 sDBTextEntryMemos [nSOAPPlan] = sDBSOAPPlanField; 

674 SDBTextEntryMemos [nSOAPFollowUp] = sDBSOAPFollowUpField; 

6 75 # 

676 nindex = 0; 

678 for nindex = 0, nindex < nTotalTextEntries; 

679 objTextEntryTextFields [nindex] .display = sDBTextEntryMemos [nindex] ,- 
68 0 next nindex + 1; 

68,1 4 

682 txtLabValues . display = sDBLabValues; 

683 end; 
684 

685 # 

S86 # 

6 87 # MENU OBJECT DEFINITIONS 

688 # 

689 # 

6 90 menu_top mtOptions; 
691 display "Options"; 

-9^ end; 

6 93 

6 94 menu_item itiiSearch, mtOptions ; 

display "Search for interver.tion. . . "; 

Gi?& menu_item miSync, mtOptions; 

display "Perform v;ireless sync..."; 

702 #irienu_item miPurgeDB, mtOptions; 

703 # display "Purge interventions,.."; 

"•^4 #end; 



menu_top mt Setup; 

display "Setup"; 



menu_iteni miPref erences, mtSetup; 
display "Set preferences..."; 

#inenu_item miDeletePIDSDatabase, mcSetup; 
# display"Delete database..."; 

#end; 



function Select InterventionDate; 

sDBInterventionDate = GetCurrentlnterventionDate; 
intervention_date_button. display = sDBInterventionDate; 



function DrugRelatedProblemTypeSelected; 

variables; 

numeric nitemlndex; 

get drug_related_problem_selector, nitemlndex; 
nDRPSelected = nitemlndex; 

if (nitemlndex > 0) and (nitemlndex <= nTotalDRPFraraes) ; 
hide drug_related_problem_f rame; 

show objDRPSelectors [nitemlndex - 1]; # - 1 because of 0 based arrays, 
show objDRPFrames [nitemlndex -1]; # - 1 because of 0 based arrays... 

function DRPPreviousForm; 

hide objDRPFrames [nDRPSelected -1]; # - 
hide objDRPSelectors [nDRPSelected -!];#- 
show drug_related_problem_frame; 



luse of 0 based arrays . 
luse of 0 based arrays . 



.'42 function DRPNextForm; 
"■-i variables; 
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.'44 object obj Selector; 

numeric nDRPSelectedltemlndex; 
#nutneric nSeiectedltemlndex; 

end; 

749 # Set the intervention selector DB values... 

objSelector = objDRPSelectors [nDRPSelected - 1]; 
75.L nDRPSelectedltemlndex = obj Selector . selected; 

7b2 if (nDRPSelectedltemlndex > 0) ; 

753 nDBInterventionSelections[nCurrentFrame] = nDRPSeiectionListOff sets [nDRPSelected] 

+ nDRPSelectedltemlndex; 

754 # 

755 # Drop the DRP chosen into the Assessment field of the SOAP screen. . . 

756 if (objPIDSFramesLnCurrentFrame] = patient_inf o_frame) and 
( length (txAssessment. display) = 0) ; 

757 txAssessment . display = 
GetDrugR6latedProblemData(nDBInterventionSelections [nCurrentPrame] ) ; 

758 end_if; 

759 # 

760 # Now switch frames... 

" - hide objDRPFrames [nDRPSelected -1]; tt - 1 because of 0 based arrays... 

"''^ hide objDRPSelectors [nDRPSelected - 1] ; # - 1 because of O'based arrays... 

'bs nCurrent Frame = nCur rent Frame + 1; 

764 call ShowFrame; 

766 end; 

767 

7o8 function PreviousForm; 

if (nCurrentFrame > 0) ; 
770 if (nCurrentFrame > 1) ; 

77x call HideFrame; 

''7z nCurrentFrame = nCurrentFrame - 1; 

773 end_if; 

774 call ShowFrame; 

775 end_if; 

function NextForm; 

object objSelector; 
numeric nSeiectedltemlndex; 

if (nCurrentFrame < (nTotalFrames - 1)); 



784 if (nContainsSelector [nCurrentFrame] ) ; 

>- ObjSelector = obj InterventionSelectors [nCurrentFrame] ; 

78b nSeiectedltemlndex = obj Selector . selected; 

787 if (nSeiectedltemlndex > 0) ; 

/aa if (nCurrentFrame = DRP_FRAME_NUMBER) ; 

789 call DrugRelatedProblemTypeSelected; 

790 else; 

791 # 

792 # Set the intervention selector BE values... 

793 nDBInterventionSelections[nCurrentFrame] = nSeiectedltemlndex; 

794 # 

795 # Now switch frames... 

796 call HideFrame; 

7 97 nCurrentFrame = nCurrentFrame + 1; 

798 call ShowFrame; 

7 99 end_if; 

8 00 end_if; 

801 else; 

802 if ( obj PIDSFrames [nCurrentFrame] = patient_inf o_f rame) and 
( length (txSubjective. display) = 0); 

803 txSub jective. display = GetPatientInf oData( ) ; 
8Q4 end_if; 

805 # 

8 06 # UHCOMMENT LATBRM!; 

807 # 

808 if (obj PIDSFrames [nCurrentFrame] = patient_inf o_f rame) and 
(length (txAssessment. display) = 0); 

809 txAssessment . display = 
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sCDRP FRAME NUMBER] ) ; 

810 " ■ - ~ 

311 

S12 # Drop the DRP chosen into the Assessment field of the SOAP scr< 

813 # 

814 call HideFrame; 

S15 nCurrentFrame = nCurrentFrame + 1 ; 

816 call ShowFrame; 

817 end_if; 
SI 8 end_if; 



823 
824 
625 
826 
827 

S28 function ItemSelected; 

8 29 variables; 

830 object objSelector; 

S-ij. numeric nDRPSelectedltemlndex; 

, 83^ numeric nSelectedltemlndex; 

f^j 834 if fSpeedEntryEnabled; 

i« S'^S if (nCurrentFrame < (nTotalFrames - 1) ) ; 

33o obj Selector = objInterventionSelectors [nCurrentFrame] ; 

£y 83 7 nSelectedltemlndex = ob j Selector. selected; 

f|| 838 if (nSelectedltemlndex > 0) ; 

839 if (nCurrentFrame = DRP_FRAME_NUMBER) and (invoker .object_string = "DRP' 

840 call DrugRelatedProblemTypeSelected; 
01 841 else; 

S42 # 

84 3 # Set the intervention selector DB values... 
"^'i if nCurrentFrame = DRP_FRAME_NUMBER,- 

(• 34 "5 objSelector = ob jDRPSelectors [nDRPSelected - 1] ; 

nDRPSelectedltemlndex = obj Selector . selected; 

" "^^ nDBInterventionSelections [nCurrentFrame] = 

Hi nDRPSelectionListOff sets [nDRPSelected] + nDRPSelectedltemlndex; 

f - 3- else; 

\'' 84; nDBInterventionSelections [nCurrentFrame] = nSelectedltemlndex; 

' # Now switch frames... 

353 call HideFrame; 

S54 nCurrentFrame = nCurrentFrame + 1; 

855 call ShowFrame; 

85 6 end_if; 

860 end; ~ 

861 

362 # 

863 # Search Screen Function Definitions: 

864 # 

865 function UpdateSearchDisplay (numeric nRecord) ; 

866 if ( (nTotalSearchableRecords = 0) or ((nRecord = 1) and (nTotalSearchableRecords = 

1) ) ) ; 

867 previous_record_button. display = char (5) ; 
863 next_record_button. display = char(6); 

869 else_if (nRecord = 1) ; 

870 previous_record_button. display = char(5); 

871 next_record_button. display = char(3); 

872 else_if (nRecord = nTotalSearchableRecords) ; 

873 previous_record_button. display = char(2); 

874 next_record_button. display = char(6); 

875 else; 
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record_set_label .display = string (nRecord, "fr") 
string (nTotalSearchableRecords, "#") ; 

end; 

function ClearSearchDi splay; 
variables; 

numeric nindex; 

end; 

nCurrentDisplayedRecord = 0; 
nTotalSearchableRecords = 0; 

UpdateSearchDisplay(nCurrentDisplayedRecord) ; 



891 
892 
893 



«9b # change all button bitmaps to "empty" state... 

tsii/ for nindex = 0, nindex < nTotalTextEntries; 

obj SearchTextEntryButtons [nindex] .display = char (11) 

next nindex + 1; 

# 

X txSearchPatient ID . display = ""; 

9t 2 txSearchDate . display = 

C txSearchDRPDescription. display = ""; 

04 txSearchRxType . display = ""; 

905 txSearchPatientRisk. display = '"' ; 

Hi txSearchProblemType. display = ""; 

nOl txSearchPrescribedDrug. display = ""; 

■« 90S txSearchRecommendation. display = ""; 

|n 309 txSearchActivity. display = ""; 

i 5 »10 txSearchResult . display = ""; 

* 911 txSearchTime. display = ""; 

txSearchDOIScore. display = ""; 

1"^ end; 

if. 914 

function I sRecordSynced (numeric nRecord) as numeric; 
if {dba_f fOpenDB{dbPidsXML, "dbPidsXML" ) ) ; 

if (dba_f fReadRecordFromRecNo{dbPidsXML, nRecord)); 
IsRecordSynced = nDBXMLSynced; 

hi 92\j IsRecordSynced = -1; # Indicated an error occurr 

^ V end_if; 

322 dba_CloseDB(dbPidsXML) ; 

923 else; 

924 IsRecordSynced = -1; # Indicated an error occurred.. 

925 end_if; 

926 end; 
927 

928 function PopulateSearchScreen (numeric nRecord) ; 

929 variables; 

930 object oText; 

931 string sCurrentChar; 

932 string sValue; 
93 3 numeric nIndex; 

934 numeric nDRPSublndex; 

93 5 numeric nSynced; 

936 end; 

937 # 

933 nSynced = IsRecordSynced(nRecord) ; 
939 if (dba__ffOpenDB(dbPids, "dbPidd")); 

94Q if (dba_f f ReadRecordFromRecNo(dbPids, nRecord) ) ; 

941 # 

94.2 if (not (nSynced = 0)); 

943 hide search_edit_button; 

944 else; 

945 show search_edit_button; 

946 end_if; 

947 show search_delete_intervention_button; 
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949 nindex = GetDRPTypelndex(nDBDrugRelatedProblemField) ; 

950 # 

251 nDRPSublndex = GetDRPTypeSublndex(nDBDrugRelatedProblemField) ; 

952 # 

'-953 if nindex = 1; 

354 txSearchDRPDescription. display = 

unnec e s sa ry_drug_t herapy_l i s t [nDRPSubl ndex] ; 

955 else_if nindex = 2; 

956 txSearchDRPDescription. display = wrong_drug_list [nDRPSublndex] ; 

957 else_if nindex = 3 ; 

958 txSearchDRPDescription. display = dosage_too_low_list [nDRPSublndex] ; 

959 else_if nindex = 4 ; 

960 txSearchDRPDescription. display = adverse_drug_reaction_list [nDRPSublndex] ; 

961 else_if nindex = 5 ; 

962 txSearchDRPDescription. display = dosage_too_high_list [nDRPSublndex] ; 

963 else_if nindex = 6; 

964 txSearchDRPDescription. display = 
inappropr i ate_compl ianc e_l i s t [nDRPSubl ndex] ; 

965 else_if nindex = 7; 

966 txSearchDRPDescription. display = need_therapy_list [nDRPSublndex] ; 

967 end_if; 

968 # 

969 txSearchPatientlD. display = sDBPatientlDField; 

f- ^-'G # 

f'1 971 txSearchDate. display = sDBInterventionDate; 

J'f 973 txSearchRxType . display = rx_type_list [nDBRXTypeField] ; 

QJ 974 # 

fll 975 txSearchPatientRisk. display = patient risk type list [nDBPatientRiskField] ; 

]■% 976 # - _ _ 

'f 977 txSearchProblemType . display = problem_type_list [nDBProblemTypeField] ; 

01 97S # 

i. 5 979 txSearchPrescribedDrug. display = sDBPrescribedDrug; 

980 # 

S; 981 

"-3' txSearchActivity. display = intervention_activity list [nDBActivityField] ; 

J-- ig # 

; -"-^ txSearchResult. display = intervention_result_list[nDBResultField] ; 

""e- # 

"07 txSearchTime. display = intervention_time_list [nDBTimeField] ; 

I'!:- 9S8 # 

983 txSearchDOIScore .display = string (nDBDOIScore, "t"); 

.990 # 

991 search_allergies_button.object_string = sDBAllergiesField; 

992 search__med_history_button. object_string = sDBMedlcalHistoryField; 

993 search_f amily_history_button.object_string = sDBFamilyHistoryField; 

994 search_social_historY_button.object_string = sDBSocialHistoryField; 

995 # 

996 search_subjective_button. object_string = sDBSOAPSub j ectiveField; 

997 search_objective_button.object_string = sDBSOAPObj ectiveField,- 

998 search_assessment_button.object_string = sDBSOAPAssessment Field; 
.999 search_plan_button.objeGt_string = sDBSOAPPlanField; 

lOOQ search_follow_up_button.object_string = sDBSOAPFollowUpField; 
1001 

1002 # 

1003 nindex = 0; 

1004 # 

1005 for nindex = 0, nindex < nTotalTextEntries; 
1Q06 oText = obj SearchTextEntryButtons [nindex] ,- 

1007 sValue = oText . obj ect_str ing; 

1008 if ( length (sValue) > 0) ; 

1003 get obj SearchTextEntryButtons [nindex] , sCurrentChar; 

1010 if (sCurrentChar <> char{9)); 

1011 put obj SearchTextEntryButtons [nindex] , char (9); 

1012 end_if; 

1013 else; 

1014 get obj SearchTextEntryButtons [nindex] , sCurrentChar; 

1015 if (SCurrentChar <> char (11) ) ; 
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1016 put objSearchTextEntryButtons[nIndex] , char(ll),- 

1017 end_if; 
1016 end_if; 
1019 next nindex + 1; 
102 0 # = nDBDOIScore ,- 

1021 else; 

1022 call ClearSearchDisplay,- 

1023 ErrorMsg { "Unable to read intervention from the PIDS database."); 
'1024 end_if; 

1025 dba_CloseDB(dfaPids) ; 

1026 else; 

102 7 call ClearSearchDi splay; 

1028 ErrorMsg ( "Unable to open PIDS intervencicn database."); 

11^-^ end_if; 
1030 end; 
1031 

1032 function InitSearchO ; 
i-033 variables; 
1034 numeric nIndex; 

end; 



^^3 



call ClearSearchDisplay; 

if (dba_ffOpenDB(dbPids, "dbPids")); 



I'-f.O-ij. # Retrieve the total records currently m the database. . . 

, nindex = 0; 

^=«ja043 seek_start dbPids, 0; 

f^il"J4 get_fields dbPids; 

[ ''ij.046 while {errorcode = ce_no_error) ; 

'ift047 nindex = nindex + 1; 

(,,tL04fe get_fields dbPids ; 

^ ~i.C4° end_while; 

"noso # 

! 3 if (errorcode <> ce_eof ) ; 

f - ErrorMsg ( "Problem reading incerventions from the PIDS da? 

J - else; 

^ nTotalSearchableRecords = nIndex; 

i -f =- if (nTotalSearchableRecords > 0) ; 

I * =0 nCurrentDisplayedRecord = 1; 

^ -1^5/ call UpdateSearchDisplay(nCurrentDisplayedRecord) ; 

^J^u58 call PopulateSearchScreen(nCurrentDisplayedRecord - 1 

|»,aC5" end_if; 



end_if ; 
dba_CloseDB (dbPids) ; 



> open PIDS intervention da^iabase . ") ; 



# Previous and next record functions fo: 



1072 function PreviousRecord; 

1073 if (nCurrentDisplayedRecord > 1) ; 

lu74 nCurrentDisplayedRecord = nCurrentDisplayedRecord - 1; 

1075 call UpdateSearchDisplay(nCurrentDisplayedRecord) ; 

lu7e call PopulateSearchScreen{nCurrentDisplayedRecord - 1) ; 

107 7 end_if; 
end; 

1079 

lu80 function NextRecord; 

J.U81 if (nCurrentDisplayedRecord < nTotalSearchableRecords) ; 

xOS2 nCurrentDisplayedRecord = nCurrentDisplayedRecord +1; 

-i-Oas call UpdateSearchDisplay(nCurrentDisplayedRecord) ; 

luo4 call PopulateSearchScreen(nCurrentDisplayedRecord - 1) ; 

1086 end; ~ 
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1088 function ShowTextEntryScreen; 
|10S9 variables; 

1090 string sValue; 

1091 numeric nindex; 

1092 numeric nTextEntrylndex; 
'1093 end; 



1096 

1097 
1098 
1099 
1100 
1101 
- - C~ 
1103 



flP-114 
;"''i.ll5 
ailb 

; =1118 

*-'-=1119 



"Med History", "Family History", 



"Assessment" 



entry screens have pop up capability... 

for nindex = 0, nindex < nTotalTextEntries; 
if objTextEntryButtons [nindex] = invoker; 
nTextEntrylndex = nindex; 

# 

text_entry_frame. display = sTitles [nindex] ; 
accept_text_entry_button.object_string = sTitles [nindex] ; 
# 

generic_selector_button.objectstring = sTitles [nindex] ; 
generic_selector_label. display = sTitles [nindex] ; 
# 

get obj TextEntryTextFields [nindex] , sValue; 
txEntry. display = sValue; 
end_if ; 
next nindex + 1 ; 
# 

call HideFrame; 
show text_entry_f rame; 
if ({nTextEntrylndex = 0) or 
(nTextEntrylndex =1) or 
(nTextEntrylndex =2) or 
(nTextEntrylndex = 3 ) ) ; 
show generic_selector_label; 
show generic_selector_button; 
else; 

hide generic_selector_label; 
hide generic_selector_button; 
end_if ; 

function AcceptTextEntry; 
variables; 

numeric nindex; 

for nindex = 0, nindex < nTotalTextEntries; 

if sTitles [nindex] = accept_text_entry_button.object_string; 
obj TextEntryTextFields [nindex] .display = txEntry. display; 

next nindex + 1; 

hide text_entry_f rame; 

call ShowFrame; 



function CancelTextEntry; 
hide text_entry_f rame; 
call ShowFrame; 



election = 0) ; '""^ 

all SyncAllInterventii 



"Yes" , "Cancel' 
,s(sWirelessURL) ; 



!less Sync", "Would ycu ^ 
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■-159 
1160 

1162 

1163 




1167 
1168 



116S 
1170 

1172 

1173 
1174 
1175 
1176 

_1"7 

_.! 9 

-.181 
-182 
:1183 
-_184 
111185 
=1186 
?=1187 




1214 
1215 
1216 
1217 
1218 



1219 
1220 
1221 
1222 



function mi Preferences; 
call HideFrame; 

hide intervention_search_f rame; 

put txPref sWirelessSyncURL, sWirelessURL; 

put txPref sLocationID, sLocationID; 

put txPref sRotationID, sRotationID; 

put txPref sUserlD, sUserlD; 

put cbPref sSpeedEntryCheckbox, f SpeedEntryEnabled; 
show pids_pref erences_f rame; 



function miDeletePIDSDatabase; 

if (message_box(l, "Delete PIDS Database", "Are you sure you want to aelete FIDS (al_ 
data v-^i^l be lost)?", "Yes", "Cancel", "«) = 0) ,- 
dba_DeleteDB(dbPids, "dbPids") ,- 

if (message_box(l, "Delete Preferences Database", "Are you sure you v/ant to delete 
preferences (ail data will be lost)?", "Yes" , "Cancel" ") = 0) ; 

dba_DeleteDB(dbPidsPrefs, "dbPidsPref s") ; 
end_if ; 



function miSearch; 

call HideFrame () ; 
hide pids_j)ref erences_frame,- 
show intervention_search_frame; 
call InitSearchO ; 



# Auxiliary invoker methods... 

# 

# 

function AcceptPref erences; 
variables ; 

numeric nReturnCode; 

nReturnCode = SavePref erences; 

# 

hide pids_preferences_frame; 
call ShowFrame; 

function SaveAndEnterAnother; 
variables; 

numeric nReturnCode,- 

nKey = GetlnterventionKeyld; 
call MovelnterventionToDBFields; 

nReturnCode = SaveInterventionRecord(nKey, sWirelessURL) ,- 
call HideFrame; 

call Reset FieldsForKextlntervent ion; 
nCurrent Frame = 1; 
call ShowFrame; 

show intervention_date_button; 

function DeleteChosenlntervention; 
numeric fDeleted; 

if (message_box(l, "Delete Intervention^ "Are ycu sure yoi, want to delete thf selected 

# delete the record corresponding to the key . 
fDeleted = DeletelnterventionRecord(nDBPIDSKeyField) ; 

n 

if (fDeleted); 
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1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 



nTotalSearchableRecords = nTotalSearchableRecords - 1; 
if (nTotalSearchableRecords > 0) ; 

if (nCurrentDisplayedRecord > nTotalSearchableRecords) ; 
nCurrentDisplayedRecord = nCurrentDisplayedRecord - 

call UpdateSearchDisplay (nCurrentDisplayedRecord) ; 
call PopulateSearchScreen(nCurrentDisplayedRecord - 1) ; 

call ClearSearchDisplay; 
end_if ; 



function ContinueEditing,- 
call HideFrame; 
nCurrentFrarae = 1; 
cal 1 ShowFrame ; 



function CancelPref erences; 

hide pids_pref erences_f rame; 
call ShowFrame , - 

end; 



2 50 # Functi< 



related to SEARCH text < 



ft 1?5? 
^":i253 
'312 54 
yil2 55 
\ M.256 
■^12 57 



function S howS ea r chText EntryScreen; 
variables; 

numeric nindex; 

for nindex = 0, nindex < nTotalTextEntries; 

if objSearchTextEntryButtons [nindex] = invoker; 

search_text_entry_f rame. display = sTitles [nindex] ; 
txSearchTextEntry. display = invoker .object_string; 
end_if ; 
next nindex + 1; 
hide intervention_search_frame; 
show search_text_entry_f rame; 

function OkSearchTextEntry; 

hide search_text_entry_f rame; 
show intervention_search_frame; 

function Edit Intervention; 
fUpdateMode = true; 
hide intervention_search_f rame; 
nCurrentFrame = 1; 
call ShowFrame; 

call MoveDBFieldsToIntervention; 
show intervention date button; 



function ExitSearch; 
hide intervention 
call ShowFrame; 



_search_f rame; 



STARTUP AND SHUTDOWN INVOKER FUNCTIONS 



invoked at program startup 
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1294 t\ 
1295 



call Init; ^' 
nCur rent Frame = 0 ; 

call Reset FieldsForNext Intervention; 
if (length(sWirelessURL) > 0) ; 



\ 12 98 
*1299 
1300 
1301 
1302 



show PIDS_intro_f rame; 
else,• 



call miPreferences; 
end_if ; 



1303 end; 
13Q4 

1305 # 

1306 # invoked at program shutdown, 
13Q7 # closes oids and preferences db 

1306 # 

1309 function shutdown ; 

1310 call dba_CloseDB(dbPids) ; 

1311 call dba_CloseDB(dbPidsPrefs) ; 

1312 end; 
1313 

1314 
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CASL_NET__3RR0RS . CPK - Paci^age 



r CASL / PalmOS < 



■ codes/ funcri. 



# NuTis : The information x-egarding network error code number to string mapping 

# was derived from trie PalmOS SDK files Srrorbash . h , KetMgr.h and InetMgr.h 



variables; 

# Error code values base values for NetLib and InetLib 
# 

# base for NetLib (0x1200, NetLibErrorClass from Errorbase.h) 

numeric cne_net_error_base = 4608; 

# 

# base for INetLib (0x1400, InetLibErrorClass from Errorbase.h 

# 

e_inet error base = 5120; 



# Strmas associated with each NetLib er: 
: cne_number_of_net_error_strings = 



ie_net_error_st rings [cne_number_of_net_error_strings] 



"xJoError", 


# 


(netErrorClass 


0) 


"AireadyOpen", 


# 


(netErrorClass 


1) 


"Not Open", 


# 


(netErrorClass 


2) 


"Sti-iOpen", 


# 


(netErrorClass 


3) 


ParamErr", 


# 


(netErrorClass 


4) 


'"NoMoreSockets", 




(netErrorClass 


5) 


fOf^esources", 


# 


(netErrorClass 


6) 


"OutOtMemory", 


# 


(netErrorClass 


7) 


"SocketNotOpen", 


# 


(netErrorClass 




"SocketBusy" , 


# 


(netErrorClass 


9) 


"= a eTooBig", 






10) 


"SocketiMotConnected ", 




(netErrorClass 


11) 


"l-iomterf aces " , 


# 


(netErrorClass 


12} 


"BufTooSinall", 




(necErrorClass 


13) 


■'Unimpietnented" , 




{netErrorClass 


14) 


" PortlnUae", 


# 


(netErrorClass 


15) 


"QuietTimeNotElapsed", 




(netErrorClass 


IS) 


" Internal", 


# 


(netErrorClass 


17) 




# 


(netErrorClass 


IS) 


^o'- f-t ireadyCcnnected " 


# 


(netErrorClass 


IS) 


"Soc.-cetclosedByRemote ", 


# 


(netErrorClass 


20) 


'' 1 CndBlocks", 


# 




21} 


"MrongSocketType", 


# 


(netErrorClass 


22) 


"aocKetNotListening", 


# 


(netErrorClass 


23) 


" auKnownSetting" , 




(netErrorClass 


24} 


" Inva 1 i dS e t t; i ngS i z e " , 




(netErrorClass 


25) 


^ct Found", 


# 


(netErrorClass 


26) 


" Xnvalidlr.terf ace" , 


# 


(netErrorClass 


27) 


r e f aceNotFound", 


# 


{netErrorClass 


28) 


■• Toornanvlnterf aces " , 




(netErrorClass 


29) 


gSize", 


# 


(netErrorClass 


30} 






(netErrorClass 


31) 


ad r pt". 




(netErrorClass 


32) 


•fiiosocket " , 


# 


(netErrorClass 


33) 


Socke-^icvBuf Fiill", 




(netErrorClass 


34) 


•I^'oPendingConnect" , 


# 


(netErrorClass 


35) 


' JnexpectedCmd" , 




(netErrorClass 


36) 
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1385 


"NoTCB" , 




(netErroi-Class 


37) 


13 8S 


"NilReT.oteWindov;Size", 


# 


(netErrorClass 


38) 


1387 


" NoT ime rProc " , 


# 


(netErrorClass 


39) 


1388 


" Socket Input Shutdown" , 


# 


(netErrorClass 


40) 


13 8 9 


« CmdBlockNot CheckedCut " , 


# 




41) 


A139 0 


" CradNocDone" , 




(netErrorClass 


42) 


|l391 


"UnknownProtocol " , 


# 


(netErrorClass 


43) 


fl392 


" Unknowns e rv ice", 


# 


(netErrorClass 


44) 


1393 


"Unreachab leDest " , 




(netErrorClass 


45) 


1394 


" ReadOnlySe 1 1 ing " , 


# 


(netErrorClass 


46) 


13 95 


" WouldBlock " , 


# 


(netErrorClass 


47} 


13 96 


" AlreadylnProgresg " , 


# 


(netErrorClass 


48) 


' 1397 


"PPPTimeout", 




(netErrorClass 


49) 


13 98 


" PPPBrought Down " , 




(netErrorClass 


50) 


13 99 


"AuthFailure" , 




(netErrorClass 


51) 


1400 


" FPPAddre s s Re f us ed " , 




(netErrorClass 


52) 


1401 


"NameTooLong'' , 


# 


(netErrorClass 


53) 


14 02 


"DNSBadName", 




(netErrorClass 


54) 


1403 


"DNSBadArgs 




(netErrorClass 


55) 


14 04 


"DHSLabelTooLcng" , 


# 


(netErrorClass 


56) 




" DNS Al location Fai lure". 










"DNSTimeout , 


# 


(netErrorClass 


58) 




"DNSUnreachable" , 


# 


(netErrorClass 




-> 4"R 


"DNSFormat" , 




(netErrorClass 


60) 


/ 


"DNSSeirverFailure" , 


# 


(netErrorClass 


61) 




"DNSNonexistantName" , 




(netErrorClass 


62) 




"DNSNIY", 


# 


(netErrorClass 


63) 


^ 1 12 


"DNS Re fused". 




(netErrorClass 


64) 


1- 


"BNSIrapossible", 




(netErrorClass 


65) 


pi 3.4 14 
[^'i415 


"BNSNoRRS 




(netErrorClass 




"DNSAbcrred", 






67) 


•»«1416 


"DKSBadProtocol " , 




(netErrorClass 


68} 


|i^a-417 


"DNSTruncated" , 




(netErrorClass 




il418 


"DNSNoRecursion" , 


# 


(netErrorClass 


70) 


?a41o 


"DNS Irrelevant ", 


# 


(netErrorClass 


71) 


4z'~ 


"DNSNot InLocal Cache " , 


# 


(netErrorClass 


72) 




"DNSNoPort", 




(netErrorClass 


73) 




" I PCant Fragment " , 


# 


(netErrorClass 






"IPNoRcute", 




(netErrorClass 


75) 




"IPNoSrc", 




(netErrorClass 


75) 




"IPHoDst", 


# 


(netErrorClass 


77) 


^ 1421^ 


" IPktOverf low" , 


# 


(netErrorClass 


78) 




" TooManyl'CPConnect ions '' , 




(netErrorClass 


79) 


fl.n.4:2S 


"NoBNSServers", 




(netErrorClass 


80) 


'^'■"142 9 


"IntertaceDown" 




(netErrorClass 


81) 



1431 

1432 

1433 # 

14 34 # Strings associated v/ith each InetLib error code 

1435 # 

x'±j6 numeric cne_number_of _inet_error_strings = 96; 

1437 

1438 String cne_inet_error_strings [cne_number_of _inet_error_strings] = 

1439 

14^i0 "NoError", 

1441 "TooKanvCllents", 

1442 "Handleinvalid", 
144 3 "Params Invalid", 

1444 " URL Ve r s i onl n V a 1 i d " , 

1445 "URLBufTooSmall", 

1446 "URLInvalid", 
144/ "TooManySockets", 
1448 ''NoReguescCreated" , 

45- - - l....Feq..ect", 

1451 "NeedTime", 

i4b2 "Hostiiapielnvaild", 

1454 "InvalidHostAddr", 

14 55 "MilBuffer", 
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1456 


"Connecf^imeout " , 


# 


InetLibErrorClass 


IS 


14 57 


"ResolveTiraeout " , 




InetLibErrorClass 


17 


145S 


"SendReqTiPieout " , 


# 


InetLibErrorClass 


18 


1459 


"ReadTimeout " , 




InetLibErrorClass 


19 


146Q 


"Buf TooStnal 1 " , 




InetLibErrorClass 


20 


1461 


"SchemeNotSupporced", 




InetLibErrorClass 


21 


1462 


" Inval idResponse " , 


# 


InetLibErrorClass 


22 


1463 


"Empty", 








3.464 


"Empty", 








1465 


"Set ting7ooLargs " , 




Inet LibEr rorC 1 as s 


25 


1466 


"SettingSizelnvaiid", 


# 


InetLibErrorClass 


26 


1467 


"RequestTooLong " , 




InetLibErrorClass 




1468 


"Set tingSfot Implemented" , 




InetLibErrorClass 


28 


1469 


" Conf igNctPotmd" , 




InetLibErrorClas s 


29 


1470 


"ContigCant Delete" , 


# 


InetLibHrrorClass 


30 


1471 


"Conf igTooMany" , 




InetLibErrorClass 




1472 


" Conf IgBadName 


# 


InetLibErrorClass 


32 


1473 


"Conf IgKotAl las " , 




InetLibErrorClass 


33 


1474 


" Conf igCant Pol nt ToAl i as " , 




InetLibErrorClass 


34 


1475 


"Conf igEmpcy" , 


# 


InetLibErrorClass 




1476 










1477 


"Conf xgAxxasErr" , 


# 


XnstLxbErrorClas s 


37 


1478 


"NoWire less Inter face", 




InetLibErrorClass 


38 


1479 


"EncryptionJNiotAva^ l", 




InetLibErrorClass 


39 


Ha480 


"NeedRetryEncSegNum" , 




InetLibErrorClass 




f5=a4 8i 


" Nee dRe t ryEncPuD 1 - cKey " , 




InetliibError CI as s 


41 


bp.482 
Ml4 83 


"ResponeeTooSfcor t" , 




InetLibErrorClass 


42 


"MobitexIxlegalOKHost 


# 


InetLibEr rorCl as s 


43 


t|'*14S 


"Mobitexi-legalSaoHost", 


# 


InetLibErrorClass 


44 


48* 


"HTTPBaUPequest '■ , 


# 


InetLibErrorClass 




"HTTPUnaucnorized" , 


# 


InetLibErrorClass 


46 


'^»J14 87 


"HTTPVorbidden" , 


# 


InetLibErrorClass 






"HTTPNotFound", 


# 


InetLibErrorClass 


48 




-ilTk-^lf-t. od\ot 1 Of-^ 


# 


InetLibEx'rorClass 




< 1 9 


"HTTPiJotAccep^^h^ e" 










"HTTPProxyAuth^en-nlred", 


# 


InetLibErrorClass 


51 


_ tc 


"HTTPRequestTimeo;;- " . 


# 


InetLibErrorClass 


52 




"HTTPConf llct". 


# 


InetLibErrorClass 


53 




" HTTPGOPe " , 










''H'l'TPLenatiReqi'. T r<=.^" - 




InetLibErrorClass 


^5 


I, 1^-7 


•■ flTTpprecondi 1 1 "p'Pai led". 




InetLibErrorClass 


56 


" H't'TPRequestTooL^rqe " , 




InetLibErrorClass 


57 


i 4£8 


"HTTPRequestURITooLong", 


# 


InetLibErrorClass 


C;g 


tei!l4 99 


« tiTTPUnsupport edType " , 








^ WIS 00 


"HTTPServerHrror" . 


# 


InetLibErrorClass 


60 


1501 


"CTPServerErroT- " , 




InetLibErrorClass 




1502 


"TypeNotCacnea" . 


# 


InetLibErrorClass 


62 


C 


"■KrrCachi=»Im.'a1 H d" - 




InetLibErrorClass 




1504 


" 1 a'-p e"- "^-u-id " 


# 


InetLibErrorClass 


64 










65 


•leoc 




# 


InetLibErrorClass 


66 


■! 1- -. 




# 


InetLibEx-rorClass 


67 


1 c s 


„ cTPTruncated'', 


# 


InetLibErrorClass 


68 


i5nQ 


" C'rPLJnkriovn~Tror " , 












# 


InetLibErrorClass 


70 




" CT'psnc<ecfiri"' , 




InetLibErrorClass 






p i rTT r 




InetLibErrorClass 


72 




" cT PRe E e r r i nqP ageOutOf Dat e " , 


# 


InetLibErrorClass 


73 








InetLibErrorClass 






"UNUSED" . 


# 


InetLibErrorClass 


75 




" CTPHailServerDcwn" , 




InetLibEz-rorClass 


76 




r P o<^ ^ tijcn 


# 


InetLibErrorClass 


77 




" CTPContent Xn-a 1 idTaa " , 




InetLibErrorClass 






" CTPContent Internal . 




InetLibErrorClass 


79 




" CTFCont er.t Da t aEnd " . 




InetLibErrorClass 


80 


1 2 


"CTPContent Re so-jrceTcoBxg", 


# 


InetLibErrorClass 






"T o ite t <[o an ", 


# 


InetLibErrorClass 






CTPContent Unsupport edContent " , 


# 


InetLibErrorClass 


83 


1524 


1. cTPCont ent Lnsuppor t edEncodi ng " , 


# 


InetLibErrorClass 


84 


1526 


"CTPContentBaciFcrm" , 




InetLibErrorClass 


85 




" Ci-PCon t ent BaaFornKi s s mgAc t i on " , 




InetLibErrorClass 


86 
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1528 
1529 
1530 
1531 
1532 
1533 
1534 
153 5 
1536 
153 7 
153 8 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
- C 



" CTPCont ent BadFcrniMi s e ingKe t hcd " , 
"CTPContentNoSour ceBata " , 
" CTPContentBadlmage " , 
"CTPCont ent ImageTooLarge", 
"MobitexErrorHandled" , 
" ProxyDovmBadHos c " , 
"HostCcnneccionLost", 
"LinkNottound" 



# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 

# InetLibErrorClass 



1 are generated by the CASLrt ( 



numeric 



cne_socket_create = 
cne_protocol_spec 
cne_mi ss ing_node 
cne_protocol_not_f ound = 
cne_host_lookup 
cne_no_connection 
numeric cne_socket_closed 



# CASL networking error string 



(<:i552 

I', 15 3 
has 54 

011559 

^' x'-eo 

*»1561 



|, 15 0 



1575 
1576 
1577 
1578 



a function to put appropriate error string into the ^ 
# for use by programs including this CASL package. 



CQmpile_if platform = "pilot "; 



if (errorcode >= cne_net_error_base) 

and (errorcode < (cne_net_error_base + cne_number_of_net_error_strings) ) ; 

cne_geterror = cne_net_error_strings [errorcode - cne_net_error_base] ; 
else_if (errorcode >= cne_inet_error_base) 

and (errorcode < (cne_inet_error_base + cne_number_of_inet_error_strings) ) ; 

cne_geterror = cne_inet_error_strings [errorcode - cne_inet_error_base] ; 
else; 

: " + string (errorcode, " " ) ; 



compile_else; 

cne_geterror = 
comp i 1 e_end_i f ; 



string (errorcode. 



else_if errorcode 

1579 cne_geterror = ' 

1580 else_if errorcode 

1581 cne_geterror = 

1582 else_if errorcode 

cne_geterror = 

else_if errorcode 

cne_geterror = 
else_if errorcode 
cne_geterror = ' 
else_if errorcode 
cne_geterror = ' 
else_if errorcode 
j-=>9j cne_geterror = 
''^94 else; 

1595 cne_get error = 



= 0; 

NoError"; 

= cne_socket_create; 

SocketCreatError" ; 
= cne_protocol_spec; 
BadProtocoL"; 
= cne_missing_node; 
MissingHost" ; 
= cne_protocol_not_f o 
PrctocolKotFound" ; 
= cne_host_lookup; 
KostvotFoun;^ 



NoCor-_Qe c 1 1 o: 
= cne_socket_closed; 

SocketClos 



!_errors C -errorcode] ; 
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if CASL_Palm_Utils.cpk 
# 

# CASL interface definition to C functions to perform PalmOS operations 

4 not currently directly supported in CASL. 
k 

if This file defines the call interfaces to callable C functions that reside 

1&07 # in the CASL_Palm_Utils library. The function definitions are wrapped inside 

fr the EXTERNAL specification of CASL, indicating that code for the functions 

lb09 # themselves is resident in the external library. 

1610 # 

1611 # Copyright (c) 2001 Feras Information Technologies 

lbl2 # Use of this code is permitted for any purpose, provided 

ibli # you leave the FIT copyright notice, and you accept code 

lbl4 # "AS IS" without warranty of any kind. 

isis # 

1616 

1.&17 # ver 2.6.0.2, 7jan01, frank o'brien, caslsoft 

1618 # support@caslsoft.com, www.caslsoft.com 

ifaly # added supplementary usage comments and CASL_FixTimeBug function 

# ver 2.6.0.1, 22oct98, jonn feras, caslsoft 

# original file 

external "CASL_?alm_Utils " ; 

„ ^ CASL_SelectDay 
«"a.b^ / # Inputs are clear. 

# When presented with dialog, user can tap OK or Cancel. 

f!=J.b29 # If user taps OK, the return string is date in format "YYYYMMDD" . 
■. Tj.b30 # If user taps Cancel, the return string is (null string). 

|,rsl632 function CASL_SelectDay # display and manipulate the day pick dialog 

^.ii-oj^ ( 

■^bB-a string title, # title for the date picking form 

string day_string # string containing start date using format YYYYMMDD 

? „ ) as string; # returns chosen date using same format 



# CASL_SelectTime 

TF The 'times' input array must be preloaded v/ith values that make sense. 

# Time format is HHMM, 24 h format string, examples: 6 : 15a= " 0615 " , 
6:05p="1805", midniQht= " 0000 " , noon="1200". 

tf The start time element of array serves as default highlighted 

w value of time selectox". Array must have at least 2 elements, even 

# if you want only 1 time, you could get some crashes if you pass 
» a 2nd null string or no 2nd element. If you pass 2 null strings, 
If the dialog won't show and the return value will be 0 {Cancel) . 

B The ' start__of __day ' input is an integer numeric of what the time 
If dialog selector should start with, for example passing 6, 

will have 6 : COa as first visible time without needing scroll arrov;s, 

# 18 will have 6:C0p. It's smart enough to override this setting if 

# needed to show the inputed start 'times' value. 

^ When presented with dialog, user can cap OK or Cancel. 

# If user taps OK, the return numeric is 1. This does not necessarily 

# mean that the time changed, it could still be default, 

# it only means OK has tapped. Returned 'times' elements are the new 

# If user taps Cancel, the return numeric is 0. It appears that the 

# passed 'times' elements are returned unchanged even if user had 

# different times selected before tapping cancel . 

# With CASL_SelectTime, v.'hen return time is 00mm time, the actual 
if return value infill be Cmm, when return txme is OOOn;, the actual 

# return value will be Om, this xs bug in Palm API pick time dialog, 

# for return times between 12 midnight (0000) and 12 : 09a (0009), 

# to get the correct 4 digit return time, hhmm, including any 

# preceeding 0 ' s , use CASL_FixTimeBug 

function CASL_SelectTime # display and manipulate the time pick dialog 
( 

string times [], # string array with start /end times at cells 0 and 1 
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title for the time picking form 
top hour displayed in hour list 
1673 ) as numeric; # returns 1 if aser taps ok, 0 otherwise 

1674 

167 5 # CASL_SYsGetRomToken 

1676 ### John, you nay want to add some comments here, 

1677 ### not sure if doesn't work on Palm VII?? 
1678 

1679 # get the serial number of the Palmlll ROM (if possible) 

1680 # 

1681 function CASL_SysGetRotnToken as string; 

1682 

1683 end_ext erna 1 ; 
16S4 

1685 # CASL_FixTimeBug 

1686 # given time in format hhmm, or 0mm, or Om, 

16B7 # such as an element of tne 'times' array from CASIj_SelectTime, 

16 88 # returns hJimm, 

1589 # hhmm - > hnmm 

1690 # 0mm -> 00mm 

1691 # Om -> OOOra 

1&93 function CASL_FixTlmeBug( string time) as string; 
A if length (time) =4; 

?---Lb95 CASL_FixTimeBug=time; 

9( else; 
^'■^( ^ if length (time) =3; 

5^^=1898 CASL_FixTimeBug= " 0 " +time ; 

9 else; 

fl 3.700 CASL_FixTimeBug="0"+lef t (time, 1) +"0"+right (time, 1) ; 

^^'!l701 end_if; 
"si 7 02 end_if; 

Ini703 end; 
..70 



V 
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1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 



# CASL3R26.CPK - Package containing CASL 2.0 error codes/functi( 

# 

# This file 

# that will 

# strings. 
# 

# NOTE: this file is designed specifically for use with CASL version 2.0 

# due to its usage function return values, and the "bad number" 

# error- aode. 
# 

# Copyright (c) 2001 Feras Information Technologies 

# Use of this code is permitted for any purpose, provided 

# you leave the FIT copyright notice, and you accept code 

# "AS IS" without warranty of any kind. 



: Modifications by Scott Smith, March 1999 to : 
i reference to ce_string variable that : 



Error code values 



1733 

^^0.736 
'■=17 3 7 
|lll738 
i..'a.739 



ce_div_0 = -1; 
ce_array = -2; 
ce_not_open = -3; 
ce_fld_mis = -4,- 
ce_eof = -5; 
ce_f mode = - 6 ; 
ce_file_nf = -7; 
ce_file_del = -8; 
ce_serial_open = -9; 
ce_serial_comm = -10; 
ce_file_open = -11; 
ce__rec__not_f ound = -12; 
ce_put_record_error = -13; 
ce_f ile_delete_error = -14; 
ce_bad_number_error = -15; 



1751 
1752 
1753 
1754 
1755 
1756 



: Strings associated 
s[16] 



I each error code 



No Erro: 
Invalid 
DB f 



Id r 



.smatch", 
Invalid file node", 
Record deleted". 
Serial comm error". 
Record net found". 
Delete record error", 



"File already open", 
"Put recora error", 
"Bad Number Error"; 



longer used) 



1771 
1772 
1773 



I to puc appropriate error string into the ' 
! by programs including this CASL package. 



function ce_geterror as string; 
variables; 
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1777 numeric temp; 

177S end; 

.1779 

1780 if errorcode > 0; 

1731 ce_geterror = "CS error: + string (errorcode, ""); 

1782 else; 

1783 ce_geterror = ce_errors [-errorcode] ; 

1784 end_if; 

1785 

1786 if falseO ; 

1787 # just to prevent "var not used" warning messages 

1738 temp = ce_no_error + ce_div_0 + ce_array + ce_not_open + ce_fld_mis 

1789 + ce_eof + ce_fmode + ce_file_nf + ce_file_del -t- ce_serial_open 

1790 + ce_serial_comm + ce_file_open + ce_rec_not_f ound 

1791 + ce_put_record_error + ce_f ile_delete_error + ce_bad_number_error; 

1792 end_if; 
1793 

17S4 end; 

1795 

17 96 
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1800 
1801 
1B02 



# Copyright (c) 2001 Feras Information Technologies 

# Use of this code is permitted for any purpose, provided 
1803 # you leave the FIT copyright notice, and you accept code 

"AS IS" without warranty of any kind. 



18Q4 
1805 
1S06 
1807 
1808 
1S09 
1810 
1811 
1812 



■»^82 8 
*a831 



# this file contains all basic functions needed to work with 

# with dbfiles. 

# functions are provided to: create/open db, existing 

# record check and select, write record, read exact record, 

# read bestfit record, remove record. 

# all these functions return true/false values for 

# success. this makes if easy to do errorchecking 

# and leaves error messages co the programmer, 

# these functions are defined without a return value: 

# close db, delete db. 

# depending on dbfile usage, it's sometimes useful to fill an array with 

# all key field strings in the dbfile to ease record selection, 

# no generic function is provided in this package, as the bound 

# field variables are specific to each dbfile. this task is left 

# to programmer, normally this is done similar to this: 

# i=0; 

# errorcode=0 ,- 

# get_fields dbData; 

# while errorcode=0 ; 

# sKeyList[i]=sKey; 

# i=i+l,- 

# get_fields dbData; 

# end_while; 

# if errorcode<>-5; # eof 

# # show error 

# i is 1-based record count, all keys are in sKeyList array 



4_ # for dbfile that is used on both palm and windows platforms, 

i.b4z # with merge sync_pref , and v/hen same record is changed on 

1&4a # each platform betv;een hotsync, can get duplicate records, 

i.?}4'a # number of records exceeding max allowed (if there is a lit 

xtiib # sometimes may want these checks in fill loop too. 

184/ # create/open db 

1848 

# given dbfile object, and filename, 

xbsu # sideeffects: if db does not exist, db will 
x»bi # be created v,'ith filename and record structure 
^5 # defined by bound field varialbles, if db 

# exists, opens db with filename, errorcode has error status 

# if desired, use CASL file function "Exists" to check is 

# db file exists prior to call, 

# returns true/false with success 

'i" ^ function dba_f f OpenDB (obj ect dbobj , string dbname) as 
error code=0 ; 
_ 1 open dbobj , dbname ; 

dba_f fOpenDB=errorcode=0; 

J.bb4 # given dbfile object, and key field data string, 

j^Sos # side effect: db pointer set to matching record if 

ln6b # or record right after in sort order if not found, 

1867 # errorcode has error status 
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1869 # returns false if key was found, or unexpected error 

1871 function dba_ffRecordExists (object dbobj , numeric key) as 

1872 errorcode=0; 

1873 search dbobj, key; 

1874 dba_f f RecordExists=errorcode=0 ; 

1875 end; 
1875 

1877 # write record 

1879 # db bound variables already have field data 

1880 # given dbfile object, and key field data string, 

1881 # side effect: if key is new insert new record, if key 

1882 # already exiscs writes new data for existing record, 

1883 # errorcode has error status 



188fc function dba_f fWrlteRecord(object dbobj , numeric key) as numeric; 
1887 if dba_ffRecordExists (dbobj , key) ; 

lSSB # v/rite existing record 

1S83 errorcode=0; 

put_f ields dbobj ; 

^ ^AS2 # add new record 

f'"a.89j errorcode=0; 
S insert dbobj ; 

end_if; 

[liia^fa dba_f fWriteRecord=errorcode=0 ; 

fs=l897 end; 

• "jises 

--3.899 # read record, 2 versions 
1,1*11900 

i'=x90x # given dbfile object, and key field data string, 

'«a9Gii # side effect: fills db bound variables with field data 

=503 # of record exactly matching key field data string, 

f -'-Oi # errorcode has error status 

# returns true/false on success 

f _ ~ function dba_ffReadExactRecord( object dbobj , numeric key) 
if dba_ffRecordExists (dbobj , key) ; 

# found 
f ^•'1 errorcode=0 ; 

I 1 1 _ get_f ields dbobj ; 

^ ..-1^ dba_f fReadExactRecord=errorcode=0; 

1913 else; 

1914 # not found 

1915 dba_ffReadExactRecord=false; 

1916 end_if; 

1917 end; 
1918 
1919 

# given dbfile object, and key field data string, 

# side effect: fills db bound variables v/ith field 

# data from raa.tching record if found, 
j.yzs # or record right after in sort order if not found, 

'^"^ # errorcode has erroi- status 
1925 # returns true/ false on success 
1926 

--^ function dba_f f ReadBestFitRecord{obj ect dbobj,: 
1928 if dba_ffRecordExists (dbobj , key) ; 

1S29 # found 

j-930 errorcode=0 ; 

ly31 get_f ields dbobj ; 

1932 dba_f f ReadBestFitRecord?=errorGode=0 ; 

1933 else; 

1934 # not found, read closest fit 

1935 errorcode=0; 

1936 get_f ields dbobj; 

1937 dba_f f ReadBestFitRecord=errorcode=0 ; 
193S end_if; 
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1942 # given dbfile object, and ; 

1943 # side effect: fills db bound variables v/ith field data 

1944 # errorcode has error status 

1945 # returns true/false on success 

1S4S function dba_f f ReadRecordFroinRecNo(object dbob j , numeric recNo) as numeric; 

1947 errorcode=0 ; 

1946 seek_start dbob j , recNo; 
1949 

1950 if errorcode=0; 

1951 # found 

1952 errorcode=0; 

1953 get_f ields dbobj ; 

1954 dba_f f ReadRecordFromRecNo=errorcode=0 ; 

1955 else; 

1956 # not found 

1957 dba_f fReadRecordFroTnRecNo=false,- 

1958 end_if; 



# given dbfile object, and key field data string, 

« fr side effect: removes record with matching key field 

k data string from db, errorcode has error status, 
|,|^967 # returns true/false on success, returns true if doesn't 

, -1969 function dba_ffRemoveRe cord (object dbobj , numeric key) as 
'a.970 if dba_ffRecordExists (dbobj , key) ; 

^71 errorcode=0 ,• 

^^^1972 remove dbobj; 

'ny73 dba_f f RemoveRecord=errorcode=0 ; 

dba_f f RemoveRecord=true ; 
end_if ; 

# close db 

4f given dbfile object, 
t # sideeffect: closes dbfile, errorcode has error status, 

' "layi # it's assumed programmer will normally not be able to do 
1984 # anything about failure, so there's no return value, 
1981s # if programmer is interested in error status, the 

1986 # system's errorcode value can be queried after call, 

1987 ft xn tnis way, programmer could add a "retry/ abort" optioi 
19SS 

1989 function dba_CloseDB (ob j ect dbobj); 
iy90 errorcode=0; 
1991 close dbobj; 



xy9e given dbfile object, and filename, 

1997 # sideeffect; deletes dbfile, dbfile wi: 

:l99S * Detore delete if it's open, errorcodi 

1999 # It's assumed programmer will normally 

2000 1 -I img about failure, so there's n( 

2001 # It programmer is interested in error status, the 
2Q02 # systenn's errorcode value can be queried after cal 
20Qi # m tnis way, programmer could add a "retry/ abort " 

2c0b function dba_DeleteDB (obj ect dbobj , string dbname) ; 

..caub errorcode=0; 

>:0G7 if Exists (dbname) ; 

2003 dba_CloseDB ( dbobj ) ; U can't delete open file 

2U0 9 delete dbname; 



Page 33 of 62 



PIPS palm app code listing. csl 2/25/2002 

2 010 end_if; 

2011 end; 

2012 

2013 



ir 
ru 

i 
h 
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# fdt ForraatDateTir 



. date 



weekday, and t 



attire 



iCtlOl 



2018 

202 0 
2 021 
2022 
2023 
2 024 
2025 
2026 
2 027 
2028 
2029 
2030 
2031 
2032 

203 3 
2034 
2035 
203 6 
2Q37 

I ^:'^3R 



n«2044 



# Copyright (c) 2001 Feras Information "echnologies 

# Use of this code is permitted for any purpose, provided 

# you leave the FIT copyright notice, and you accept code 

# "AS IS" without warranty of any kind. 



# jdt_JulianDateTime.cpk for Julian date and time f\ 

# gdt_GregorianDateTime . cpk for gregorian date and l 

# ver 3.1.0.2, 21jan01, frank o'brien, caslsoft 

# support@caslsoft.com, www.caslsoft.com 

# given Gregorian date in format, YYYYMMBD, 

# where YYYY=-4900 to 9999, MM=month=01 -12 , DD=day=0; 

# and dateformat string in form "dd mmm yy" , or "dd i 

# or "mra/dd/yy" or "dd.mm.yy", 

# dateformat string is case-insensitive, 

# returns Gregorian date in format specified, where 

# dd=days without leading zero 

# mm=TOonth without leading zero 

# mram=month of form Jan-Dec, 

# yy=last 2 digits of year with leading zero 

# yyyy=year 

# if dateformat string is unrecognized, date is returi 

# "dd mmm yy", 

# no error checking 



2061 
2062 
2063 
2064 
20S5 
2066 
2067 
2068 
2069 
2070 
2071 



2074 
2075 
2076 

2073 
2079 
2080 
2DB1 
20S2 
2 083 



y=value(left (gd, length (gd) -4) ) ; 
m=value{raid(gd, length(gd) -4,2) ) ,- 
d=value {right (gd, 2) ) ; 
if (lower (dateformat) ="r!a',,/dd/yyyy") ; 

# format of form 3/17/2001 

f dt_s f FormatDat e= 

string (m, "")+"/"+ 

string(d, " ") +"/"+ 

string (y, " " ) ; 

if lower (dateformat) =''mm/dd/yv" ; 

# format of form 3/17/01 

fdt_sf FormatDat e= 
string (m, " ")+"/"+ 
string (d, "") +"/"+ 
string (y%100, "Ofi") ; 

if lower (dateformat) = 



# fo 



. 17. : 



fdt_sf FormatDate= 
string(d, " ") +" . + 
string (m, "")+". + 
string(y%100, "C#") ; 

if lower (dateformat) =''dd ramm yyyy"; 
# format of form 17 Mar 2 001 
fdt_sf FormatDate= 
string (d, ''')+" " + 

mid ( JanFebKarAprMayJunJulAugSepOctKovi:ec", (m-l) *3 , 3) + 
string (y, '•") ,- 



elsi 



unrecognized fo: 
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2088 

2089 
2090 
2091 
2092 

2093 

2095 

20S7 
2098 
2099 
2100 
2101 
2102 
2103 
2104 



String (d, " " ) +" "+ 

midC'JanFeoKarAprMayJunJulAugSepOctNovDec", (m-1) *3, 3) + 
string (y%100, "0#") ; 



end; 



. fo: 



# given Gregorian time i; 

# and timeformat string in form "hh:mm : 

# timeformat string is case- insensitive 

# returns time in specified format where 

# hh=hours v/ith leading zero, see also : 

# mTn=minutes with leading zero 

# 24=hours are in modulo 24 

# 12=lioars are in modulo 12, suffix is 

# and "pm" if hours=l2-23 in modulo 24 

# if timeformat string is unrecognized, 

# "hhrmm 24", 

# no error checking 



HHmm, 24 h format. 



if hours=0-l] 
is returned i 



. format 



r^siio 
1- 

fl-SllB 

32114 
, =^11^ 

' ^2116 
i ."=^11 7 
2^18 
'•"52119 



^ 2^ 



fcj.-212 8 



good for led font 
+string(ran, "0#") ; 



h=value(left (gt,2) ) ; 
mn=value (raid (gt , 2 , 2 ) ) ; 
if lower (timeformat) ="hh . mm" ; 

# 24 h format, decimal separate 

f dt_s f Fo rmatT ime= string(h,"Oi^") 
else; 

if lower (timeformat) ="hh:mm 12"; 
# am/pm format 
if h/l2<l; 

# am 

if h=0; 

fdt_sf FormatTime="12 : «+string (mn, "0#") 

f dt_sf FormatTime=string (h, "0#") +" : ■■ + 
string (mn, »0#") +" am" ; 



2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
213S 
2140 



+string(mn, "Q#") +" pn" . 



if h=12; 

f dt_s f FormatTime= ' 
else; 

f dt_sf FormatTime=string(h%12 , " C#" ) + 
string(mn, "0#")+" pm" ; 



I out because OClock sample app would exceed demo lit 

# change false to true if you have registered version, or not 

# using vsyith OClock sample app 

compile_if false; 

# giver, -.veekday, i 

# of "short" or 

# returns string ( 

# if "long", ret-, 



if 



'Monday", ... "Sunday" 
short" or unrecognized, returns "Mon", ... "Sun" 
error checking (if wd out of range, should return 
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2156 # null scring, but not fully tested) 
2157 

2158 function fdt_sfFormatWeekday (numeric wd, string wdformat) as string; 

2159 if lower (wdformat) =" long"; 
216 0 # long format 

2161 variables; 

2152 string days [7] ="Konday " , "Tuesday" , "Wednesday" , "Thursday" , 

2163 "Friday", "Saturday", "Sunday"; 

2164 end; 

2165 if wd<0 or wd>6; 

2166 f dt_sf FormatWeekday=" " ; 

2167 else; 

2168 f dt_sf FormatWeekday=days [wd] ; 
216 9 end_if; 

2170 else; 

2171 # short format or unrecognized format 

2172 fdt_sf Forma tWeekday=mid { "Monl'ueWedThuFriSatSun", wd*3 , 3 ) ; 

2173 end_if; 

2174 end; 

2175 

compil e_end_i f ; 
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# Copyright (c) 2001 Feras Information Technologies 

# Use of this code is permitted for any purpose, provided 

# you leave the FIT copyright notice, and you accept code 

# "AS IS" without warranty of any kind. 



2150 # gdt_GregorianDateTiTne . cpk for gregorian date and 

2191 # f dt_FormatBateTime . cpk for gregorian formatting : 
2192 

2193 # Algorithm for converting betv/een Gregorian 

2194 # Julian Dates presented in 1958 in a lette: 

2195 # Communications of the ACM (CACM, volume i: 

2196 # October 1963, p. 657) by Henry ?. Fliegel and 

2197 # Thomas C. Van Flandern 
219S # 

2199 # Additional information from Peter Meyer at http://hermetic.magnet.ch/ 

2200 # 

2201 # Astronomers and chronologists use a system of numbering days 
;"'0J # called Julian days. The temporal sequence of days is mapped 

# onto the sequence of integers, -2, -1, 0, 1, 2, 3, etc. This 

# makes it easy to determine the number of days between two days 

# {just subtract one Julian day number from the other) . 

*;«'2206 # 

ti&'2Qi # Do not confuse Julian days with the Julian Calender. Julian days 

f|p208 # are a serial date system so all Gregorian dates have a seqencial 

1^209 # ordering to faciliate math involving Gregorian dates 
«2210 

l^^miz # ver 3.1.0.1, 7jan01, frank o'brien, caslsoft 

j,'r22±2 # support^caslsoft . com, www.caslsoft.com 
'«2213 

2214 # given Gregorian date in format, YYYYMMDD, 

I 221" # where YYYY=-4900 to 9999, MM=month=01 to 12, DD=day=01 to 31, 

^ # returns the Julian Days, a serial date, 

"X # no error checking, 

I X2^c' # handles out of range value as a rollover- type thing 

_ 1 # the julian date defaults to midnight (=.0) 

0 # no error checking 

1-52222 funct; 



I'-S 04 



2227 end; 

y=value(lef t (gd, length(gd) -4) ) ; 
2 m=value(mid(gd, length (gd) -4,2) ) ; 

.^•> s. d=value{right(gd,2) ) ; 

2- jdt_nf JulianDate=int ( (1461* (y+4800+int ( (m-14) /12) ) ) /4) + 

int ( (367* (m-2-12* (int ( {m-14) /12) ) ) ) /12) - 
2^ int ( (3*int ( (y+4900+int { {m-14) /12) ) /lOO) ) /4) + 

" > '- d-32075; 

" > # given Gregorian time in format, HHmm, 24 h format, 
223g # where HH=hours=00 to 23, and mm==minutes=00 to 59, 
> # returns decimal eqivalent of number of days 
# midnight = 0 .00, noon=0.5, 6 : 00a=6/24=0 . 25 , 
4 # 6:45p=i8/24+45/60/24=a little more than 0.75 
2242 # no error checking 
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^2 nin=value(mid(gt,2,2) ) ; 

^ f jdt_nf JulianTime= (h+ {tnn/eo) ) /24; 

end; 

' / ^ # coraraented out because DaysBetween and OClock sample apps 

l^oi} # would exceed demo limit, change false to true if you have 

22bfe # registered version, or not using with DaysBetween and 

2257 # OClock sample app 

2259 cornpile_if false; 

2261 # given Gregorian date in format, YYYYIvlMDD, 

2262 # where YYYY=year=-4 900 to 9959, MM=month=01 to 12, DD=day=01 to 31, 

2263 # returns modulo 7 of julian date of gregorian date where, 

2264 # O=mon, . . . 6=sun 

2265 # no error checking 
2266 

2267 function jdt_nfWeekday( string gd) as numeric,- 
s22S8 jdt_nfWeekday=jdt_nf JulianDate(gd) %7; 

226 9 end; 

2 271 # given Gregorian date in format, YYYYMMDD, 

# where YYTY=year=-4 90 0 to 9999, MM=month=01 to 12, DD=day=01 to 31, 
, A^li # returns true if inputed gregorian date fits within 

'*-^Z~ # limits given above, returns false otherv/ise 

.6 " ' function jdt_ffLegalDate( string gd) as numeric; 
j!^--22 77 variables; 
05e273 string y; 

^12279 String m; 

J^''!22gO string d; 

■M2281 end; 

yi2282 y=left (gd, length (gd) -4) ; 

i, s2283 m=mid (gd, length (gd) -4,2) ; 

■■^2284 d=right(gd,2) ; 

^ 228b jdt_f f LegalDate= (y="0000" or (value (y) >=-4900 and value (y) <=9999 and 

,'7''^ value(y)<>0)) and (value(m)>=l and value (m) <=12 ) and 

^ ^^-^ (value (d) >=1 and value (d)<=31) ; 

# given Gregorian time in format, HHmm, 24 h format, 

# where HH=hours=00 to 23, and mn==minutes=00 to 59, 
^„ ^ # returns true if inputed gregorian time fits within 

i 2 # limits given above, returns false otherwise 



function jdt_ffLegalTime (string gt) as numeric; 
variables; 

string h; 

h=left (gt,2) ; 
mn=mid(gt,2, 2) ; 

jdt_ffLegalTime= (h="00" or (value(h)>0 and value (h) <24) ) and 
(mn="OC" or (value(mn)>0 and value (mn) <60) ) ; 

end; 

c omp i 1 e_end_i f ; 
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2309 # 

2310 # PIDS_date_iib.cpk 

# 

J .3 # 

-■^-'A # PIDS (ttn) 

2 3x5 # Pharmacy Intervention Documentation System 

# Copyright ® 2002 Intiegrated Software Systems, L.L.C. 

;ji7 # 

2318 ######################################################################## 

2^13 # 

: '20 # Version: 1. 0 

# Date: 1/7/2002 

z "-.l ^ Author: Todd Viegut & Brad Tice 

^ 24 # 

2325 # Function to handle retrieving the intervention date. 

. ^J6 # 

2327 include " f dt__FormacDateTime . cpk" ; 

232S include " j dt_JulianDateTime . cpk" ; 

232S include "CASL_PalTr,_Ut lis . cpk" ; 

2330 # 

2331 function GetCurrentlnterventionDate as string; 

2332 variables; 

3 string sSelectedDate; 

5 sSelectedDate = string(year {) , "0##fr") + string (month( ), "0#" ) + string{day() , "0#") ; 

;2j36 GetCurrentlnterventionDate = fdt_sfFormatDate ( sSelectedDate, "mm/dd/yy") ; 

^"^2339 function GetInterventionDate( string sDef aultDate) as string; 
''»«2340 compile_if platform = "windows"; 

1^341 variables; 

=2342 numeric mb; 

■ife34 3 end; 

?''^4 rab = mes3age_box(2, "Warning", "Net; intended to run on w^ndovjs", "", »", "OK"); 

?»=2 345 GetlnterventionDate = ""; 

J ' -6 compile_else; 

" -^7 variables; 
- 2 '48 string sFormat; 

=2j-^-) string sSelectedDate; 

t-7 350 end; 
; 235^ # 

,-=2352 sFormat = string (year ()," 0##ft " ) + string {month( ), "0#") + string(day() , "C# ") ; 

■^2^53 # 

2354 # running on palir., use external library for date and time 

23 55 # get new date with date pick dialog 

23 56 # 

23 57 SSelectedDate = CASL_SelectDay( " Intervention Date", sFormat) 

2358 #s3electedDate = "20020101"; 

2359 if (sSelectedDate <> ••"); 

2360 GetlnterventionDate = fdt_sfFormatDate (sSelectedDate, "mra/dd/yy") ; 

2361 else; 

2362 GetlnterventionDate = sDef aultDate; 

2363 end_if; 

23 64 compile_end_if ; 

23 65 end; 

2366 
23 67 
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2—^ #(fP^ff#*»###S####«######################################################## 

2372 # 

2373 # PIDS (tm) 

23 74 # Pharmacy Intervention Documentation System 

2J /b # Copyright 2002 Integrated Software Systems, L.L.C. 

237S # 

2 377 ######################################################################## 

237S # 

2379 # Version: 1.0 

2380 # Date: 
2 3 81 # Author: 
2382 # 
2 3 83 # 

12384 # Database related variable defii 



2j90 # db fields for preferences... 

2391 # 

*«^3 93 numeric nDBPref sKeyField; 

j.;i3 94 numeric fDBPref sEnableSpeedEntryField; 

i. ^39^ string sDBPref sWirelessURLField; 

fl:E3 96 string sDBPref sLocationlDField; 

H52397 string sDBPref sRotationlDField; 

[~-''_22S>8. string sDBPref sUserlDField; 

y|2400 # 

'fe402 # db fields for PIDS... 



# 

numeric nDBPIDSKeyField; 
numeric nDBSynced; 

' ^4 # 

' String sDBRotationlD,- 

i!'2409 String sDBLocationID; 

^4 string sDBInterventionDate; 

i-2AXX string sDBUserlD; 

■"-24i..i; String sDBPrescribedDrug; 

2413 string sDBDisease; 

2414 string sDBPrescriber; 

2415 # 

241*3 numeric nDBDrugRelatedProblettiField; 

2417 numeric nDBRXTypePield; 

241S numeric nDBPatientRiskField; 

■ic nDBProblemTypeField; 
: nDBRecommendationField; 
; nDBActivityPield; 
: nDBResultField; 
: nDBTimeField; 

# 

string sDBPatientlDField; 
string sDBAIlergiesField; 
string sDBMedicalHistoryField; 
string sDBFamilyHistoryField; 
string sDBSocialHistoryField; 
# 

string sDBSOAPSubjectiveField; 
string sDBSOAPOb j ectiveField; 
string sDBSOAPAssessmentField; 
string sDBSOAPPlanField; 
string sDBSOAPFollowUpField; 
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# db fields for PIDS XML database. 



string sDBXMLIntervention; 



DATABASE OBJECT D3FINITI0NS 



2456 d 


ibfile dbPids; 




2457 








2458 




nDBPIDSKeyField; # This xs tne 






f i^ld 






2460 










f " Id 


. 




2462 ■ 


field 


sDBLocationlD- 






field 


sDBInterventionDate; 




f«f 464 


field 


sDBUserlD; 






field 


sDBPrescribedDrug; 




'■.24c6 


field 


sDBDisease; 






field 


sDBPrescriber; 




?--iS468 
[?'5469 


# 

field 


nDBDrugRelatedProblemPield; 






field 


nDBRXTypeField; 




^1^471 


field 


nDBPatientRiskField; 




^ 2472 


field 


nDBProblemTypeField; 






field 


nDBRe c ommendat ionField,- 




» 2474 


field 


nDBActivityField; 




,2^75 


field 


nDBResult Field; 






field 


nDBTimeField; 




[ ?47P 


field 


sDBPatientlDField; 






field 


sDBAllergiesField; 






field 


sDBMedicalHistoryField; 






field 


sDBFamilyHistoryField; 






field 
# 


sDBSocialHistoryField; 




2484 


field 


sDBSOAPSubjectiveField; 




24 8 5 


field 


sDBSOAPOb j ectiveField; 




243S 


field 


sDBSOAPAsses smen t F i e 1 d; 




2487 


field 


sDBSOAPPlanField; 




248S 


field 


sDBSOAPFollowUpField; 




2489 


# 








field 


sDBLabValues; 




2491 


# 








field 


nDBDOIScore; 





24 »4 sync_pref pda_to_pc; 

2A"'C end; 

2498 dbfile dbPidsXML; 

field nDBXMLPIDSKeyPield; 
field nDBXMLSynced; 
field sDBXMLIntervention; 

sync_pref pda_to_pc; 
2508 dbfile dbPidsPrefs; 



record "key" index 



Page 42 of 62 



PIPS palm app code listing.; 



2510 field nDBPref sKeyField; 

2511 field fDBPref sEnableSpeedEntryField; 

2512 field sDBPref sWirelessURLField; 

2513 field sDBPref sLocationlDField; 

2514 field sDBPref sRotationlDField; 

2515 field sDBPrefsUserlDField; 
2516 

2517 sync_pref pda_to_pc; 

2518 

2519 end; 

2520 

2521 



rt; 
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252 3 # PIDS_error_handiing.cpk 

^■--24 # 

2526 # 

r-^' # PIDS (tm) 

2528 # Pharmacy Intervention Documentation Syscem 

2529 # Copyright ® 2002 Integrated Softv?are Systems, L.L.C. 

2530 # 

2531 ######################################################################## 

2532 # 

2533 # Version: 1.0 

-d = "- # Date: 12/23/2001 

z535 # Author: Todd Viegut & Brad Tice 

r-,^ # 

2537 # 

2533 # Function for displaying a standardized message box for PIDS errors. 

2539 # 

254Q function ErrorMsg (string sMessage) ; 

^5^1 variables; 

2 542 numeric nResult; 

25^4 nResult = message_box(l, "PIDS Error", sMessage + " [" + ce_geterror + 

»2 545 end; 
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# PIDS_tnisc.cpk 

# 

###############################*######################################## 

# 

# PIDS (tm) 

# Pharmacy Intervention Documentation System 

# Copyright ® 2002 Integrated Software Systems, L.L.C. 

# 

# 

# Version: 1 . 0 

# Date: 12/14/2001 

# Author: Todd Vieaut & Brad Tice 
# 

# 

# Miscellaneous functions. 



<i5>.-3 # Automated data entry functions. . . 

, function GetDRPTypelndex (numeric nDrugRelatedProblemSelection) as ] 

ii,K2573 variables; 
S!»'25?4 numeric fContinue; 

|,,^257d numeric nindex; 

ps2576 end; 
l Pi"? nindex = 1; 

1^2578 # 

fContinue = true; 
I 580 while ((nindex < nTotalDRPFrames) and (fContinue)); 

if ( (nDrugRelatedProblemSelection >= nDRPSelectionListOf f setsEnlndex] ) and 
w (nDrugRelatedProblemSelection < nDRPSelectionListOf f sets [nindex + 1])); 

fContinue = false; 
« else; 

nindex = nindex + 1; 

end_whiTe ; 



2592 function GetDRPTypeSublndex (numeric nDrugRelatedProblemSelection) as numeric; 

2593 variables; 

2594 numeric nindex; 

2595 end; 

2596 nindex = GetDRPTypelndex(nDrugRelatedProblemSelection) ; 

2597 GetDRPTypeSublndex = nDrugRelatedProblemSelection - nDRPSelectionListOf f sets [nlndexl ; 

2598 end; 
2599 

2600 function GetDrugRelatedProblemData(numeric nDrugRelatedProblemSelection) as string; 

2501 variables; 

2602 object obj Selector; 

2603 numeric nindex; 
2S04 numeric nSublndex; 

2605 end; 

2606 nindex = GetDRPTypelndex (nDrugRelatedProblemSelection) ; 

2607 nSublndex = GetDRPTypeSubIndex{nDrugRelatedProblemSelection) ; 

2608 objSelector = objDRPSelectors [nindex - 1]; # This array is 0 based 

2609 # 

2-510 GetDrugRelatedProblemData = "DRUG RBILATSB PROBLSM:'' + char (10) + 
drug_related_problem_li St [nindex] + " - " + obj Selector . display; 



) empty strxng. 
# Allergies: 
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26 IS 

2620 
2621 
2622 
2623 
2624 
2S25 

2626 



2633 
2634 
2635 



..jj'..2644 
5?^2645 

|-iS2646 
« 264- 
^'a2648 



"MED HISTORY: ' 



if (length (txAllergies -display) > 0) ; 

GetPatientlnfoData = "ALLERGIES:" + char (10); 

GetPatientlnfoData = GetPatientlnfoData + txAllergies. display; 
end_if ; 

# 

# Medication History: 

if {length(txMedHistory. display) > 0); 
if (length (GetPatientlnfoData) > 0); 

GetPatientlnfoData = GetPatientlnfoData + char (10) + char(li 
+ char (10) ; 
else; 

GetPatientlnfoData = "K3D HISTORY:" + char (10) ; 
end_if ; 

GetPatientlnfoData = GetPatientlnfoData + txMedHistory. display; 
end_if ; 

# 

# Family History: 

if (length(txFamilyHistory. display) > 0); 
if (length(GetPatientlnfoData) > 0); 

GetPatientlnfoData = GetPatientlnfoData + char (10) + char (10) + "FAMILY 

HISTORY:" + char (10); 

else; 

GetPatientlnfoData = "FAMII.Y HISTORY:" + char(lO); 
end_if ; 

GetPatientlnfoData = GetPatientlnfoData + txFamilyHistory. display; 

# Social History: 

if (length(txSocialHistory. display) > 0) ; 
if (length (GetPatientlnfoData) > 0); 

GetPatientlnfoData = GetPatientlnfoData + char(lO) + char(lO) + "SOCIAL 
HISTORY;" + char (10); 

GetPatientlnfoData = "SOCIAL HISTORY:" + char (10); 
end_if ; 

GetPatientlnfoData = GetPatientlnfoData + txSocialHistory. display; 
end if; 



end; 
functi 



7S5« 
2659 
2660 

2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 



in GetLabValuesData( string sInitialString) as string; 
numeric nLoopIndex; 

end; 

GetLabValuesData = sInitialString; 

for nLoopIndex = 0, nLoopIndex < nLabValuesCreated; 
if (length (GetLabValuesData) > 0) ; 

GetLabValuesData = GetLabValuesData + char (10) - 
completed_lab_values [nLoopIndex] ; 



els 

GetLabValuesData = 
next nLoopIndex + 1; 



GetLabValuesData + completed_lab_values [nLoopIndex] ; 



# DDI Score (tm) calculation. 



f\inction CalculateDOIScore as numeric 
variables; 

object obj Selector; 
numeric nFramelndex; 
numeric nWeightlndex; 
numeric nSelectedlndex; 



CalculateDOIScore = 



0; 



for nFramelndex = 2, nFramelndex <= 9; 

obj Selector = obj InterventionSelectors [nFramelndex] ; 
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2689 
2690 
2691 
2692 
2S93 
2694 
2 6 95 
2696 
2697 
2S98 

2699 
2700 
2701 
2702 



nSelectedlndex = obj Selector . selected; 

# 

if nFrame Index = 2; 

obj Selector = objDRPSelectors [nDRPSelec 

nSelectedlndex = obj Selector . selected; 

nWeightlndex = (nDRPSelectionListOf f set 

CalculateDOIScore = CalculateDOIScore + 
else_if nFramelndex = 3; 

CalculateDOIScore : 
else_if nFramelndex = ' 

CalculateDOIScore = 
else_if nFramelndex = ! 

CalculateDOIScore = 
else_if nFramelndex = ( 

CalculateDOIScore = 



CalculateDOIScore ■ 
CalculateDOIScore ■ 



CalculateDOIScore - 
: CalculateDOIScore ^ 



CalculateDOIScore h 
CalculateDOIScore ^ 



CalculateDOIScore = 
else_if nFramelndex = i 

CalculateDOIScore = < 
else_if nFramelndex = 

CalculateDOIScore = CalculateDOIScori 
end_if ; 
:t nFramelndex + 1; 



3[nDRPSelected] + nSelectedlndex) ; 
nDRPWeights [nWeightlndex] ; 

nRXTypeWeights [nSelectedlndex] ; 

nPatientRiskWeights [nSelectedlndex] ; 

nProblemTypeWeights [nSelectedlndex] ; 



nActivityWeights [nSelectedlndex] ,- 
nResultWeights [nSelectedlndex] ; 
nTimeWeights [nSelectedlndex] ; 



I -271-^ # 

' ^ 1% # 

I i-J715 function HideFrame; 

2"lfc if (nCurrentFrame >= 0) and (nCurrentPrame < nTotalFrames) ; 

'!|2717 if (nContainsSelectorEnCurrentFrame] ) ; 

te 2716 hide obj InterventionSelectors [nCurrentFrame] ; 

-2 Ij end_if; 

hide obj PIDSFrames [nCurrentFrame] ; 

! ^ 2^ end; ~ 

function ShowFrame; 
^ "a"^ if ({nCurrentFrame >= 0) and (nCurrentFrame < nTotalFrames)); 

s!|^'26 if obj PIDSFrames [nCurrentFrame] = save_intervention_f rame; 

^■"2727 txDOIScore. display = string (CalculateDOIScore, "#"),- 

end_if ; 

if (nContainsSelector [nCurrentFrame] ) ; 

show obj InterventionSelectors [nCurrentFrame] ; 
end_if ; 

show obj PIDSFrames [nCurrentFrame] ; 
end_if ; 

end; 



2728 
2729 
2730 
2731 
2732 
2733 
2734 
273 5 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 



at start up of 



text_entry_allergies_selector .object_string = sTitles[0] ; 
text_entry_med_history_selector .object_string = sTitles[l] ; 
text_entry_family_history_selector.object_string = sTitles[2] ; 
text_entry_social_history_seleGtor.object_string = sTitles[3] ; 

drug_selector . list = drugs_list; 
disease_selector.list = diseases_list; 
text_entry_allergies_selector . list = allergies_list; 
text_entry_med_history_selector . list = drugs_list; 
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2754 text_entry_f amily_history_sele 

2755 text_entry_social_history_sele 

2756 # 

2757 nDBPref sKeyField = 1; 

2/ S3 fDBPref sEnableSpeedEntryField = false; 

2759 sDBPrefsWirelessURLField = " " ,• 

2760 sDBPrefsLocationlDField = " " ,- 
sDBPrefsRotationlDField = " ; 

2762 sDBPrefsUserlDField = ""; 

2763 # 

2764 if (dba_ffOpenDB(dbPidsPrefs, "dcPidsPref s") ) ; 

2765 if (dba_ffRecordExists(dbPidsPrefs, 1) ) ; 

2766 if (dba_f fReadExactRecord(dbPidsPrefs, 1) = false) ; 

2767 ErrorMsg( "Unab_e to read from the PIDS preferences dataoase. ") ; 

2768 end_if; 

2769 else_if (dba_f fWriteRecord(dbPidsPref s, 1) = false) ; 

2770 ErrorMsg( "Unable to write to tr.e PIDS preferences database."); 

2771 end_if; 

2772 call dba_CloseDB (dbPidsPref s) ; 

2773 else; 

1 open the PIDS preferences database."); 

_ 2777 f SpeedEntryEnabled = fDBPref sEnableSpeedEntryField; 

1^-2773 sWirelessURL = SDBPrefsWirelessURLField; 

f»S!/79 sLocationID = sDBPrefsLocationlDField; 

ll-y.-ypo sRotationID = SDBPrefsRotationlDField; 

I:,.f27ei sUserlD = SDBPrefsUserlDField; 

r;lj27B2 # 

sl!^783 end; 

M??2784 

Ss2 785 # 

|i^2786 # 

J;2787 # Function used to retrieve the next key id... 

•M2788 # 

278 9 # 

j:tft2790 function GetlnterventionKeyld as numeric; 

J;;^279l if (fUpdateMode) ; 

'(-.'.2.792 GetlnterventionKeyld = nInterventionKeyld; 

ft 12793 else; 

IJP79^ GetlnterventionKeyld = -1; 

y^2795 if (dba_ffOpenDB(dbPids, "dbPids") ) ; 

tJ;27Sb # 

|,|'s2797 # Retrieve the total records currently in the database... 

,!j?2798 errorcode = ce_no_error; 

2799 seek_end dbPids, 1; 

2800 if (errorcode = ce_no_error) ; 

2801 errorcode = ce_no_error; 

2802 get_fields dbPids; 

2803 if (errorcode = ce_no_error) ; 

2804 GetlnterventionKeyld = nDBPIDSKeyField + 1; 

2805 else_if (errorcode = ce_eof ) ; 

2806 GetlnterventionKeyld = 1; 

2807 else; 

2808 ErrorMsg( "Unable to obtain the next key id from tne PIDS database."); 

2809 end_if; 

2810 else; 

2811 ErrorMsgC'Unaole to obtain the next key id from the PIDS dataJoase.'O; 

2812 end_if; 
2313 # 

2S14 dba_CloseDB (dbPids) ; 

2815 else; 

2816 SrrorMsg( "Unable tc open PIDS preferences datacase to obtain the next key 



281- 



lipulation functi( 
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2826 function SaveXMLlnterventionRecord{numeric nKey, string sSyncURL) as numeric; 

2827 SaveXMLInterventionRecord = false; 

282S if (dba_ffOpenDB(dbPidsXML, "dbPidsXKL" ) ) ; 

2823 # 

2830 # Now save the XML record... 

2831 nDBXMLPIDSKeyField = nDBPIDSKeyPield; 

2832 nDBXMLSynced = o ; # Always must be 0 (not synced) 

2833 sDBXMLIntervention = BuildXMLRecord(sSyncURL) ; 

2834 # 

2S35 SaveXMLInterventionRecord = dba_f fWriteRecord(dbPidsXML, nKey) ; 

2836 if (not SaveXMLInterventionRecord) ; 

2837 ErrorMsg( "Unable to save the intervention to the PIDS XML aatabase.' 

2838 end_if; 
2833 # 

2840 dba_CloseDB(dbPidsXML) ; 

284.1 else; 

2842 SrrorMsg( "Unable to open PIDS interventions XKL database."); 

2843 end_if; 

2844 end; 

2845 

2846 function SavelnterventionRecordCnumeric nKey, string sSyncURL) as numeric; 

-o/i 7 variables; 



j,»i;S4fa numeric nResult; 

,,.•2849 end; 



j:^^2S50 SavelnterventionRecord = false; 

|,„'S851 if (dba_ffOpenDB(dbPids, "dbPids")); 

|.',^S52 SavelnterventionRecord = dba_f fWriteRecord(dbPids, nKey) ; 

i,J';2853 if (not SavelnterventionRecord) ; 

llr"2854 dba_CloseDB(dbPids) ; 

''285= ErrorMsg( "Unable to save the intervention to the PIDS database."); 

fi=52856 else; 

' 2857 dba_CloseDB(dbPids) ; 

'^853 ji 

s, 2359 # Save was successfull so proceed to save the corresponding 

->^6 # XML record. . . 

SavelnterventionRecord = SaveXMLInterventionRecord(nKey, sSyncURL); 

; - - if (not SavelnterventionRecord) ; 

J ' # Since we now require both databases to have identical records 

i # (keys, etc.) we must "back out" the original saved interventioj 

2' # since the XML formatted record was not successfully saved. 

PfV^° ' nResult = dba_f fRemoveRecord(dbPids, nKey); 

i 2-^68 end_if; 

286 9 end_if; 

2870 else; 

2871 ErrorMsg( "Unable to open PIDS interventions database."); 

2872 end_if; 

2873 end; 
2874 

2875 

2876 function DeleteXMLInterventionRecord(numeric nKey) as numeric; 

2877 DeleteXMLInterventionRecord = false; 

2878 if (dba_f fOpenDB(dbPidsXML, "dbPidsXML") ) ; 

2879 DeleteXMLInterventionRecord = dba_f fRemoveRecord(dbPidsXML, nKey) ; 
2B80 if (not (DeleteXMLInterventionRecord)); 

2881 ErrorMsgC "Unable to delete the intervention."); 

2882 end_if; 

ze3i # 

2»»C dba_CloseDB(dbPidsXML) ; 

2So6 ErrorMsgC'UnabJe to opon PIDS interventions XKL database."); 

-p<5~ end_if; 

-~ function DeleteInterventionRecord(numeric nKey) as numeric; 

•^d^i DeletelnterventionRecord = false; 

.iSs2 if (dba_f fOpenDB(dbPids, "dbPids")); 

2SS3 DeletelnterventionRecord = dba_f fRemoveRecord(dbPids, nKey) ; 

2894 if (not (DeletelnterventionRecord) ) ; 
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dba_CloseDB(dbPids) ; 

ErrorMsg ( " jnable to delete the intervention .") ,- 
dba_CloseDB{dbPids) ; 

# Delete successful! so proceed to delete the corresponding 

# XML record . . . 

DeletelnterventionRecord = DeleteXMLInterventionRecord(nKey) ; 
end if; 



2895 
2896 
2897 
2898 
2S99 
2900 
2901 
2902 
2903 
2904 
29G5 
2 905 
2907 



2909 function SavePrefe 

2910 SavePref erences = false; 
if {dba_f fOpenDB (dbPidsPref s, "dbPidsPrefs 



else; 

ErrorMsg ("Unable to open PIBS . 
end_if ; 



iiterventions database . ") ; 



2912 
2913 

2914 



f;32S22 
M292 3 

I ¥2925 



927 



) ) ; 



nDBPref sKeyField = 1; 

f DEPref sEnableSpeedEntryField = cbPref sSpeedEntryCheckbox . checkbox; 

sDBPref sWirelessURLField = txPrefsWi re lessSyncURL. display; 

sDBPref sLocationlDField = txPrefsLocationlD. display; 

sDBPref sRotationlDField = txPrefsRotationlD. display; 

SDBPref sUserlDField = txPrefsUserlD . display; 

# 

SavePreferences = dba_f fWriteRecord(dbPidsPref s, nDBPref sKeyField) ; 
if (SavePreferences) ; 

fSpeedEntryEnabled = fDBPref sEnableSpeedEntryField; 

sWirelessURL = sDBPref sWirelessURLField; 

sLocationID = sDBPref sLocationlDField; 

sRotationID = sDBPref sRotationlDField; 

sUserlD = sDBPref sUserlDField; 

# NOTE may need to delete this code out later. . . 
txLocationlD. display = sLocationID; 
txRotationlD. display = sRotationID; 
txUser ID. display = sLocationID; 

else; 

to PIDS preferences dat:abase . ") ; 



:;-':.2 93S 

,29^9 
2940 
2941 
2942 
2943 
2344 
2945 
294S 
2347 
2948 
2949 
2350 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2 958 



dba_CloseDB(dbPidsPref s) ; 
else; 

ErrorMsg ("Unable to open PIDS oref 
end if; 



Pop-up selector funct; 



database . ") ; 



function Compare (string sStringl, string sString2) as numeric; 
variables; 

numeric nCharl; 
numeric nChar2; 
numeric nlndex; 
numeric nLength; 

I fFinished; 



indie: 



! that sStringl 
! that they are i 
; that sStringl 



sStr: 



if (length{sStringl) < length(sString2) ) ; 

nLength = length ( sStringl) ; 
else_if (length (sStringl) > length (sString2) ) ; 

nLength = length(sString2) ; 
else; 

nLength = length(sStringl) ; 
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2966 end_if; 

2967 # 

2968 fFinished = false; 
2 969 nindex = 0 ; 

2970 Compare = 0; # Always start by assuming they're equal. 

2971 while ( (nindex < nLength) and (not fFinished) ) ; 

2972 nCharl = asc (mid ( sStringl, nindex, 1) ) ; 
2S73 nChar2 = asc (mid ( sString2 , nindex, 1) ) ; 

2974 if (nCharl < nChar2) ; 

2975 Compare = -1; 
2376 fFinished = true; 

2977 else_if (nCharl > nChar2) ; 

2978 Compare = 1; 
2379 fFinished = true; 

2980 else; 

2981 nindex = nindex + 1; 

2982 end_if; 

2983 end_while; 

2984 # 

29S5 if (Compare = 0) ; 

'•■9So if (length (sStringl) < length {sString2) ) ; 

2987 Compare = -1; 

Z^°S else; 

2 9S9 Compare = 1; 
2°°Q end_if; 
;^391 end_if; 

992 end; 

2 

h^2995 variables; 

numeric nMid; 

if (nFirst > nLast) ; 
BinarySearch = -1; 
J. Joou else; 

I '^^^ nMid = Trunc ( (nFirst + nLast) / 2) ; 

'•"Oc^ if (sitem = saList [nMid] ) ; 

tf..s3C)03 BinarySearch = nMid; 

<■ >^ else_if (Compare (sItem, saList [nMid] ) = 

' " BinarySearch = BinarySearch (saList, 

else; 

BinarySearch = BinarySearch (saList, sItem, (nMid + 1), nLast); 
J end_if; 
, >-.CCS end_if ; 

3 010 end; 

3011 

3012 function BestFitSearch( string saList [], string sItem, numeric nFirst, numeric nLast) 

numeric; 
3 013 variables; 
3 014 numeric nMid; 

3015 end; 

3016 if (nFirst > nLast) ; 

3017 BestFitSearch = nFirst; # Only difference between binary and best fit is thi= 
line ... 

3018 else; 

3019 nMid = Trunc ( (nFirst + nLast) / 2); 

3020 if (sItem = saList [nMid] ) ; 
3 021 BestFitSearch = nMid; 

else_if (Compare (sItem, saList [nMid] ) = -1); # sItem < saList [nMid] .. . 
BestFitSearch = BestFitSearch (saList, sItem, nFirst, (nMid - 1)); 



3022 
3023 



024 els' 

BestFitSearch(saList, sItem, (nMid + 1), nLast); 



3 025 

3026 

3027 end_if; 

302S end; 

3029 

3030 function ShowDrugSelector; 
3 031 variables; 

3032 string sBestFitString; 

30 3 3 numeric nSelectedlndex; 
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3034 end; 

3035 if (length (txPrescribedDrug. display) > 0) ; 

3036 sBestFitString = txPrescribedDrug . display; 

3037 if (length(sBestFitString) >= 1); 

3038 SBestFitString = upper (left (sBestFitString, 
(length(sBestFitString) - 1)); 

3 03 9 end_if; 
3 04 0 nSelectedlndex 
D) ; 

3041 drug_selector. selected = nSelectedlndex, 

504 2 end_if; 

show drug_selector; 



- mid (sBestFitString, 



BestFitSearch(drugs_list, sBestFitString, 0, (nDrugsListSize ■ 



3045 

3 046 function DrugSelected; 

3047 variables; 

3048 string sItemSelected; 
3 04.3 end; 

3050 hide drug_selector; 

3051 get invoker, sItemSelected; 

3052 txPrescribedDrug. display = sItemSelected; 

3053 end; 
3 054 

3055 fimction ShowDiseaseSe lector; 

|:5ii--3056 variables; 

p-pG57 string sBestFitString; 

j;p058 numeric nSelectedlndex; 

i;j3C59 end; 

1^13060 if (length{txDisease. display) > 0); 

lYHiOei # Must start at element 2 since item 0 and 1 are "Unknown" and "Other" which 

|-F3062 # aren'r in alphabetical order and would make this BestFirstSearch ( ) call fail. 

■M3063 SBestFitString = txDisease . display; 

||5|3064 if (length (SBestFitString) >= 1); 

^=3^^= SBestFitString = upper (left (SBestFitString, 1)) + raid (sBestFitString, 1, 
(length (SBestFitString) - 1)); 

^: 3 OSS end_if; 

j;-,a30S7 nSelectedlndex = BestFitSearch(diseases_list, SBestFitString, 2, 

(nDiseasesListSize - 1) ) ; 

fi-^'Cs disease_selector. selected = nSelectedlndex; 

^■.3CtQ end_if; 

[ll-'"^- show disease_selector; 



»,J"e3Q73 fimction DiseaseSelected; 

Mrf3074 variables; 

3073 string sItemSelected; 

3076 end; 

3077 hide disease_selector; 

3 078 get invoker, SItemSelected; 

3079 txDisease. display = sItemSelected; 

3080 if (SItemSelected = "AsrhTa") ; 

3081 call HideFrame; 

3082 show DSW_asthma_frame; 

3083 end_if; 

3084 end; 
3085 

3086 function ShowTextEntrySelector; 

3087 variables; 

3088 String sSelectorType; 

3083 end; 

3090 SSelectorType = invoker . object_string; 

3091 if (sSelectorType = sTitles[0]); 

3092 show text_entry_allergies_selector; 

3093 else_if (sSelectorType = sTitles [1] ) ; 

3094 shov7 text_entry_med_history_selector; 

3095 else_if (sSelectorType = sTitles [2] ) ; 

3 09'3 show text_entry_f amily_history_selector; 

3097 else_if (sSelectorType = sTitles[3]); 

3098 show text_entry_social history selector; 

3099 end_if; 

3100 end; 
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3104 end; 



function ShowPatientlDSelector; 
show patient_id_selector; 



function GenericItemSelected; 
variables; 

string sSelectorType; 
string sItemSelected; 

SSelectorType = invoker .object_string; 
if (sSelectorType = sTitles[0]); 

hide text_entry_allergies_selector; 
else_if (SSelectorType = sTitlesEl]); 

hide text_entry_med_history_selector; 
else_if (SSelectorType = sTitles[2]); 

hide text_entry_f amily_history_seleGtor; 
else_if (SSelectorType = sTitles[3]); 

hide text_entry_social_history_selector; 
end_if ; 
# 

get invoker, sItemSelected; 

if (lengthCtxEntry. display) > 0) ; 

txEntry. display = txEntry. display + char( 

else; 

SItemSelected; 



• SItemSelected; 



Lab Values functions. 



function LabValueTypeSelected; 
variables; 

numeric nSelectedltem; 

end; 

lab_value_types_label . display = 



3146 
3147 
314S 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 



3162 

3164 
3165 
3166 
3_6 
4> Ci> 
3169 



invoker . display; 



nSelectedltem = invoker. selected; 

# Blood Pressure 

if (nSelectedltem = 1) ; 

type_descriptions_selector . list = 

# Respiratory 

else_if (nSelectedltem = 2) ; 

type_descriptions_selector.list = 
M Blood Sugar 

else_if (nSelectedltem = 3) ; 

type_descriptions_selector.list = 
H Lipids 

else_if (nSelectedltem = 4) ; 

type_descriptions_selector . list = 

# Osteoporosis 

else_if (nSelectedltem = 5) ; 

type_descriptions_selector . list = 

# Liver Function Tests 
else_if (nSelectedltem = 6) ; 

type_descriptions_selector.list = 

# Electrolytes 

else_if (nSelectedltem = 7) ; 

type_descriptions_selector . list = 

# Anticoagulation 

else_if (nSelectedltem = 8) ; 

type_descriptions_selector . list = 

# Renal Function 

else_if (nSelectedltem = 9) ; 

type_descriptions_selector.list = 

# Hematology 

else_if (nSelectedltem = 10) ; 

type_descriptions_selector . list = 



b 1 ood_pr e s sur e_l i s t ; 

respiratory_value_list; 

blood_sugar_values; 

lipid_values_list; 



iteoporosi 



!_values_li! 



liver_function_tests_list; 
electrolytes_list; 

anticoagulation_values_list 
renal_function_list; 
hematology_l i st ; 
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3174 type_descriptions_selector. selected = 0; 

sl/5 type_descriptions_label .display = type_descriptions selector. display; 

3176 end; ~ 

3177 

3178 function TypeDescriptionsSelected; 

j1/9 txtLabValue. focused = 1; # Set the focus on the value text field... 

jleO type_descriptions_label .display = invoker . display; 

-^1 end; 
3182 

^±83 function UnitsOfMeasureSelected; 

jj-fe4 units_of_measure_label . display = invoker . display; 

3185 end; 

function ShowLabValueTypesSelector; 

ji8i> show lab_value_types_selector; 

function ShowTypeDescriptionsSelector; 

^ ^" show type_descriptions_selector; 

3194 

' function ShowUnitsOfMeasureSelector; 

-.S show units_of_measure_selector; 

s.j.v-3x99 function EnterLabValues; 

"eCCC* call HideFrame; 

Kj 53201 show add_lab_values_f rarae; 

hM202 lab_value_types_selector . selected = 0; 

■^3203 lab_value_types_label. display = lab_value_tYpes_selector. display; 

j}s3204 type_desGriptions_selector. selected = 0; 

-.5205 type_descriptions_label .display = type_descriptions_selector . display; 

•s32 06 units_of_measure_selector. selected = 0; 

t; 3207 units_of _measure_label . display = units_of_measure_selector . display; 

f ^I'-Z completed_lab_values_selector. selected = -1; 

f function AddLabValue; 

variables; 

I string sUnitsOfMeasure; 

-21- string sLabValueDescription; 

. end; 

f 321C # 

3217 if ( (nLabValuesCreated < 20) and ( lab_value_types_selector . selected > 0) and 
(type_descriptions_selector. selected > 0) and (length (txtLabValue . display) > 0)); 

3218 if (units_of_measure_selector. selected > 0); 

3219 SUnitsOfMeasure = " " + units of measure label .display; 

3220 else; ' 

3221 SUnitsOfMeasure = "'<; 

3222 end_if; 

322 3 SLabValueDescription = type_descriptions_label . display + " " + txtLabValue . display 
+ SUnitsOfMeasure; 

3224 conipleted_lab_values [nLabValuesCreated] = sLabValueDescription; 

3225 # 

3226 nLabValuesCreated = nLabValuesCreated + 1; 

3227 # 

3228 lab_value_types_selector . selected = 0; 

3 229 lab_value types label . display = lab value types selector . display; 

3230 # - - f I, 

3231 type_descriptions_selector. selected = 0; 

3232 type_descriptions_label .display = type_descriptions_selector. display; 

3234 units_of_measure_selector. selected = 0; 

3235 units_of_measure_label . display = units_of_measure_selector .display; 

3237 completed_lab_values selector . selected = -1; 

3238 # 

3239 show coit^leted_lab_values_selector; 
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.524i txtLabValue. display = ""; 

3242 end_if; 
iA&s end; 

^^4S function ClearLabValuesList; 

variables; 
j24 , numeric nindex; 

S-ltB end; 

for nindex = 0, nindex < 20; 

completed_lab_va lues [nindex] = ""; 
32 Si next nindex + 1; 

J ^32 nLabValuesCreated = 0; 

3253 end; 

3 25s function AcceptLabValues; 
-;25o hide add_lab_values_f rame; 

■i^-^! call ShowFrame; 

txtLabValues. display = GetLabValuesData (txtLabValues. display) ; 

txObj ective. display = GetLabValuesData(txObjective .display) ; 
•"--"^ call ClearLabValuesList; 

.3z€i function CancelLabValues; 

3 2o4 hide add_lab_values_frame; 

L.,:w265 call ShowFrame; 

32C6 end; 
W3 267 

(' 326^8 function DeleteLab Value; 
^\?-^2b9 variables; 
! -'"0 numeric nindex; 

Iwj27j. numeric nLoopIndex; 

end; 
J -327. # 

nindex = completed_lab_values_seleGtor. selected; 
^^'^ if ({nLabValuesCreated > 0) and (nindex < nLabValuesCreated)); 

nLabValuesCreated = nLabValuesCreated - 1; 
# 

for nLoopIndex = nindex, nLoopIndex < nLabValuesCreated; 
t completed_lab_values [nLoopIndex] = completed_lab_values [nindex + 1] ; 

s next nLoopIndex + 1; 

# 

n 3 28 for nLoopIndex = nLabValuesCreated, nLoopIndex < 20; 

-^S^ cotnpleted_lab_values [nLoopIndex] = ""; 

l\ --2"^ next nLoopIndex + 1; 

r s-'S- # 

228to completed_lab values selector . selected = -1; 

3287 # ~ 

3 288 show completed lab values selector; 

3289 else; ~ ~ 



completed_lab_values_selector. selected = 



32 90 

3291 end_if;' 

3292 end; 
3293 

3 294 function PickUserSelectedlnterventionDate; 

3295 variables; 

3296 string sPreviousDate; 
3 297 end; 

3298 SPreviousDate = intervention_date_button. display; 

intervention_date_button. display = GetlnterventionDate(sPreviousDate) ; 

end; 



3299 
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^-04 # PIDS_SYnc. cpk 

######################################################################## 

33 07 # 

•~ # PIDS (ttn) 

siOy # Pharmacy Intervention Documentation System 

# Copyright ® 2 002 Integrated Software Svstems, L.L.C. 

- # 

3312 ######################################################################## 

# 

3314 # Version: 1.0 

'Z^Z # Date: 

J- S # Author: 

3317 # 

-x^- # 

331.9 # Suite of functions to perform wireless synchronization.. 

63z± include "PIDS errcr_handling.cpk"; 

include "PIDs]^db_f lies . cpk" ; 

^~ ' include "dba_DBAccess . cpk"; # include generic db access functi< 

3324 

, 2- # 

3326 variables; 
.! string sinputstring; 

p 3.28 end; 

^2^: # 

*r=i33i # 

SJ3334 # 

|«3335 # 

^•.3336 file sync_socket; # file objecc for triggering open sockec 



# Read data from the socket 
function sync_socket; 
variables; 

numeric selection; 

errorcode = 0; 

get sync_socket, sinputstring; 
if errorcode = 0; 
3 348 if bytesread <> 0; 

3349 #txResponse. display = txResponse . display + sinputstring; 

3 3 50 end_if; 

3351 else; 

3352 selection = message_box(l, "PIDS Error", "Wireless sync error occurred during read: 

" + cne_geterror, " " , "Ok" , " " ) ; 

3353 end_if; 

3354 end; 
3355 

3356 variables; 

3357 string DONT_ENCODE = 

" abcdef ghi j klmnopqrstuvwxy zABCDEFGHI JKLMNOPQRSTIWWXYZC 12 3 45 6 789 . - « "; 

3358 string HEX_DIGITS = "C123456789ABCID5:F"; 
33 59 end; 

3360 

3361 function Hex (numeric nDecimal) as string; 

3362 variables; 

3363 numeric nQuotient; 

3 3 64 numeric nRemainder; 

3 3Sd nQuotient = t rune (nDecimal / 16); 

3367 nRemainder = nDecimal % 16; 

3368 # 

3369 if (nQuotient > 0); 

3370 Hex = Hex (nQuotient) + mid {HEX_DIGITS, nRemainder, 1); 

3371 else; 
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3375 

3 377 
3378 
3379 
3380 
3381 
3382 
3383 
3 384 
338S 
3386 

t3367 
3388 
- 3389 
3390 



Hex = raid(HEX_DIGITS, nRemainder, 1) ; 

function URLEncode ( string sinput) as string; 
variables; 

string sHex; 
string sOutput; 
string sChar; 
numeric nLoop; 

end; 

for nLoop = 0, nLoop < length(slnput) ; 
sChar = mid ( sinput , nLoop, 1); 



ft ^° 



( length (sHex) = 3) ; 



left (sHex, 2) ; 
right (sH ex, 2) 



sHex; 



3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 



34 3 7 
3438 
343 9 



. char is not in the DONT_ENC 
# string then proceed to encode it... 
if (not (find(sChar, DONT_ENCODE, 0) >= 0)); 
If (SChar = " ") ; 

sOutput = sOutput + " + ■■ ; 
else; 

sHex = Hex(asc(sChar) ) 
if (length (sHex) = 1) 

sHex = "0" + sHex; 
end_if ; 

if {length(sHex) = 4); 
sOutput = sOutput 
sOutput = sOutput 

sOutput = sOutput 
end_if ; 
end_if ; 
else; 

sOutput = sOutput + sChar; 
end_if ; 
next nLoop + 1; 
URLEncode = sOutput; 

end; 

function BuildPostReguest( string sRelSyncURL, string sURLEncodedPostString) as string; 
BuildPostRequest = "POST " + sRelSyncURL + " HTTP/1. C" + char(13) + char(lO) 

+ "Content -type: applicat::.on/x-wv.'w- f orm-urlencoded" + char(13) + 
char (10) 

+ "Content -length: '• + string (length (sURLEncodedPostString) , "#«; 
char (13) + char (10) + char (13) + char (10) 
+ SURLEncodedPostString 
+ char(13) + char(io); 



function BuildURLEncodedPostStringO 
variables; 

string sPostString; 

sPostString = sPostString + "pids 
SPostString = sPostString + "pids 



1 string; 



SPostString = 
sPostString = 
sPostString = 
sPostString = 
sPostString = 
SPostString = 
SPostString = 



SPostString ^ 
sPostString -t 
SPostString -i 
SPostString n 
sPostString n 
SPostString h 
sPostString -i 



sPostString = sPostString -. 



SPostString = 
sPostString = 
SPostString = 
SPostString = 
SPostString = 



SPostString h 
sPostString h 
SPostString h 
sPostString h 
SPostString h 



"pids_12= 
"pids_13= 

"pids_15= 



h String (nDBPIDSKeyField, 

- string (nDBSynced, "#"> + 

- URLEncode (sDBRotal 

- URLEncode (sDBLocal 

- URLEncode (sDBInte: 

- URLEncode (sDBUserlD) + "&"; 

- URLEncode (sDBPrescribedDrug) + "&"; 

- URLEncode (sDBDisease) + "£:"; 

- URLEncode (sDBPrescriber) + "&"; 

+ string (nDBDrugRelatedProblemField, "k") 

+ string (nDBRXTypeField, "#") + "&"; 
+ strxng(nDBPatientRiskField, "fr") +• "&"; 
+ string (nDBProblemTypeField, «#") + "&•"; 
+ string (nDBRecommendationField, "#") + "& 
+ string (nDBActivityField, "#") + "&"; 
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3457 
3458 

sasT end; 



sPostStrmg = sPostString + "pids_3 
# 

sPostString = sPostString + "pids_i8=" + URLEncode (sDBPatientlDField) + 
SPostString = sPostString + "pids_19=" + URLEncode (sDBAllergiesField) + 
SPostString = sPostString + »pids_2Q=« + URLEncode (sDBMedicalHistoryField) 
SPostString = sPostString + "pids_21=" + URLEncode (sDBFamilyHistoryField) + 
SPostString = sPostString + «pids_22='' + URLEncode (sDBSocialHistoryField) + 

sPostString = sPostString + ''pids__23 = " + URLEncode (sDBSOAPSubjectivePield) 

SPostString = sPostString + ■•pids_24 = " + URLEncode (sDBSOAPObjectiveField) + 

SPostString = sPostString + "pids_25.-" + URLEncode (sDBSOAPAssessmentField) 

SPostString = sPostString + "pids_26=" + URLEncode (sDBSOAPPlanField) + "&"; 

SPostString = sPostString + "pids_27=" + URLEncode (sDBSOAPFollowUpField) + 

SPostString = sPostString + "pids_28 = " + URLEncode (sDBLabValues) + 
SPostString = sPostString + "pids_29=" + string (nDBDOI Score, "#") ; 



BuildURLEncodedPostString = sPostString,- 



Mr3468 

•^^3463 
|. -470 

'**i=3471 



3477 

3478 

3479 

3480 
3481 

3482 

3483 

3484 

3485 



_ set PUBLIC 
C dtd'>"; 



String sXMLRecord; 

sXMLRecord = sXMLRecord + "<?xml version^ 
sXMLRecord = sXMLRecord + '•<!DOCTYPE int 
Syster'.s, LLC// Intervention Secs//EJf' 
' htcp : / / www . pidsware . cotr/dtds/intervent 
sXMLRecord = sXMLRecord + "<intervention_set sync_u: 
sXMLRecord = sXMLRecord + "<intervention>"; 

sXMLRecord = sXMLRecord + "<kev url param nan!e='plds l'>" + s 

'•#«) + ••</key-"; 

sXMLRecord = sXMLRecord + "<sync_flag url_paraTn_naTne= 'pids_2 
" jt " ) + " < / sync_f i ag > " ; 

sXMLRecord = sXMLRecord + 

sXMLRecord = sXMLRecord + 
"</locatior._id>'"; 
sXMLRecord = sXMLRecord + 
sDBInterventionDate + "</intervenci( 
sXMLRecord = sXMLRecord + '"<user id 



-//Integrated Software 



sSyncXJRL + "•>■■; 
■ string (nDBPIDSKeyField, 
string {nDBSynced, 



"<rotat; 
"<lccat: 



_id -. 



sDBRotationID - 
sDBLocationID h 



l_param__naTe= ' pids___3 
d url__paraTn_name= 'pids__4 

l_parar[i__na!ne- ' pids_5 ' > " + 
me= 'pias_'5 ' >" + sDBUserlD + 

' + sDBDisease + 
iber url_paraT_naw€= ' pids_9 ' >" + sDBPrescriber 



<prescribed_drug 
;cribed_arug> " ; 
<disease url__param_name' 



'•</user_id>' 

sXMLRecord = sXMLRecord + 
sDBPrescribedDrug + "</pre 
sXMLRecord = sXMLRecord + 

"</dise3se>"; 
sXMLRecord = sXMLRecord + 

"</prescriber>" ; 

SXMLRecord = sXMLRecord + " <drug_related_probleT url_paraT._naTe= ' pids_10 ' ; 
stringCnDBDrugRelatedProbleitiField, "#") + " </drug_related_proj3lem>"; 
sXMLRecord = sXMLRecord + "<rx_ti'pe url__paraTn_name= 'pids ll'>" -i- 
string (nDBRXTypeField, "'#") + "</rx_type>" 
SXMLRecord = sXMLRecord + " <patienc__risk u, 
string (nDBPatientRiskField, "#") + "c/patii _ 
sXMLRecord = sXMLRecord + " <problem_type uri_param_name= 'pias_13 ■ >" + 
string (nDBProblemTypeField, "#") + "</probIem_t;v-pe>"; 

SXMLRecord = sXMLRecord + "<recomn-.endation url_param_name= 'pids_14 ' >" + 
string (nDBRecommendationField, "fe") + "</recc-T.-rendaticn>"; 
SXMLRecord = sXMLRecord + "<activi-y url_parax__nari,e= 'pids_: 5 ' >" + 
string (nDBActivityField, + " </act ivity> " ; 

SXMLRecord = sXMLRecord + "<result: •-irl_paraT_naTe= ' pids_16 ' > " + string (nDBResultField, 



l_param__name= 'pids_ 



sXMLRecord = 



<tim 



url_param _naire= 'pids_; 



string (nDBTimeField, 



sXMLRecord = sXMLRecord + ' 

+ "v/patient_id>"; 



.rl__parax_name= 



• SDBPatientlDField 
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sXMLRecord = sXMLRecord + "oilergies url parani_name= ' pids^ig ' ><- + sDBAllergiesField ^ 

"<-/allergies>" ; 

sXMLRecord = sXMLRecord + " <medic&i_h:Lsrory ur l___para:n_iiaine= ' pxds 20' >" + 
sDBMedicalHistoryField + "</medical h-story>"; " ~ 

sXMLRecord = sXMLRecord + "<f amily_n:Lstory url_param naii!e='pids 21'>" + 
sDBFamilyHistoryField + "</farai ly^higtory>"; ~ ~ ' 

sXMLRecord = sXMLRecord + •'<sccial_nistory url_param_naine= 'pids_22 ' >" + 
sDBSocialHistoryField + "< /social history>"; 



sXMLRecord = sXMLRecord n 



t url_paraTn_nax.e= ' pids_ 



sDBSOAPSubjectiveField H ^ 

3497 SXMLRecord = sXMLRecord + " <scap_OD: active uri_param_name= ' pids 24'>" + 
sDBSOAPObjectiveField + "</soap_ocjective>"; ~ 

3498 sXMLRecord = sXMLRecord + "<eoap_assessmer-t urljparax_name= 'pids 25' + 
sDBSOAPAssessmentField + "</soap_c(SsessTent>",- 

3493 sXMLRecord = sXMLRecord + "<scap_plan url_param_name= 'pids_26 ' >" + sDBSOAPPlanField + 

3500 sXMLRecord = sXMLRecord + "<scap_fol 1 ow_ud url_param name-='pids 2T >'■ + 

sDBSOAPFollowUpField + "</soap follow up>«; ~ ~ 

# -- _ 

3502 SXMLRecord = sXMLRecord +■ "<lab_va.Lues ur :_param_name= ' pids_28 ' >" + sDBLabValues + 
" < / 1 ab_va 1 ue a > " ; 

3503 sXMLRecord = sXMLRecord + "<doi_score uri_j)aram_nain€= 'pids_29 ' >" + string (nDBDOIScore, 
"#") + "</doi_score>"; 

U350i sXMLRecord = sXMLRecord + "</ini;ervention>"; 

itsiSOS sXMLRecord = sXMLRecord + "< /intervention set>"; 

If-iSOS # 

C33507 BuildXMLRecord = sXMLRecord; 

m35 08 end; 

vmsio # 

'.^3513. # Write data to the socket 

n;il.5512 function SyncIntervention( string sSyncURL, string sRequest) as numeric- 
it. .^t-s close sync_socket; 



= 3514 



open sync_socket, sSyncURL; 
slnputString = sRequest; 



!; -'5 errorcode = ce_no_error; 

.■.35^9 put sync_socket, sinputstring, length ( sinputstring) ; 

L||3 521 #close sync_socket; 

|<-3522 # 

S;':35^3 Synclntervention = errorcode; 
h-'3'-24 end; 
3525 

3526 function ExtractRelativeSyncURL(string sURL) as string- 

3527 variables; 

3528 numeric nindex; 
3523 end; 

3530 ExtractRelativeSyncURL = ; 

3531 nindex = find("//", sURL, 0) ; 

3532 if (nindex > -1) ; 

3533 nindex = findC/", sURL, (nindex + 2)); 

3534 ExtractRelativeSyncURL = Mid (sURL, nindex, (length(sURL) -nindex)); 
353 5 end_if; 

3 53 6 end; 
3537 

3535 function SyncAllInte3rventions( string sSyncURL) ; 

3539 variables; 

3540 string sRelativeSyncURL; 

3541 string sURLEncodedString; 

3542 string sRequest; 

3 543 numeric nLocalErrorCode; 

3:46 # Retrieve the -otal records currently in the database... 

'i^--" if (dba_f fOpenDB(dbPids, "doPids")); 

-548 SRelativeSyncURL = ExtractRelativeSyncURL(sSyncURL) ; 
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3551 while (errorcode = ce_no_error) ; 

3552 get_fields dbPids; 

3 553 if errorcode = ce_no_error; 

3554 sURLEncodedString = BuildURLEncodedPostString( ) ; 

3555 sRequest = BuildPostReguest(sRelativeSyncURL, sURLEncodedString); 

3556 nLocalErrorCode = SYncIntervention(sSyncURL, sRequest) ; 
3 557 errorcode = nLocalErrorCode; 

355S if errorcode <> ce_no_error; 

3559 ErrorMsg("Wii-eless sync error occurred."}; 

3 56 0 end_if; 

3561 end_if; 

3562 end_while; 

3563 call dba_CloseDB(dbPids) ; 

3564 else; 

3565 ErrorMsg( "Unable ::o open PIDS intervention database."); 
3 566 end_if; 



3567 end; 
3568 
356S 



in 

V 

\ 
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# PlDS_wizards . cpk 
# 

######################################################################## 
# 

# PIDS (tm) 

# Pharmacy Intervention Documentation System 

# Copyright * 2002 Integrated Software Systems, L.L.C. 



3585 # 

3586 # Disease State Wizards: 

3587 # 
3588 



^E-^-- # ASTHMA 
353^ # 



Msr 459" 



if' 



3623 
3S24 
3625 



^g360i function DSWAcceptAsthmaDisclaimer; 
13 602 hide DSW_asthma_frame; 

show DSW_asthma_age_f rame,■ 



f unc t i on DS WCance 1 As thmaDi s cl aimer; 
hide DSW_asthma_frame; 
call ShowFrame," 



3615 # 

3616 # 

3617 function DSWBackToAsthmaDisclaimer; 
3518 hide DSW_asthma_age_f rame; 

3619 show DSW_asthma_frame; 

3620 end; 
3621 

3 622 function DSWNextToAsthmaEval; 

hide DSW_asthma_age_f rame; 



3 627 function DSWAsthmaAgeSelected; 

3 62 8 # hide DSW_asthma_age_f rame ; 

3629 if (invoker. selected > 0) ; 

3S30 show DSW_asthma_eval_f rame; 

3631 # 

3632 days_with_symptoms_selector . selected = 0; 

3633 nights_with_symptoms_selector . selected = 0; 

3634 expiratory_flow_selector. selected = 0; 

3635 expiratory_volurae_selector. selected = 0; 

3636 # 

^637 days_with_symptoras_label .display = days_with_symptoms_selector . display; 

^SSe nights_with_symptoms_label. display = nights_with_symptoms_seleGtor. display; 
expiratory_flow_label. display = expiratory_f low_selector . display; 
expiratory_volume_label. display = expiratory_volume_selector. display; 



3639 
3640 
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.ated with trie 













fun t ■ 


•"6^1 






h ^ 




e ; 


A "'654 




^^655 


function 




hide 


3657 




3S58 


end-^^"" 


3659 




3 66 0 




36S1 




3662 


end; 


366 3 




3664 


function 








end; 






r3obS 


function 


-3659 




i 36-"0 




%3671 


















function 



DSWShowDaysWithSymptomsSelector; 



DSWDaysWithSymptomsSelected; 
^j""" if (invoker. selected > 0); 

days_with_symptoms_label . display = invoker . display; 
end_if ; 

_ function DSWNightsWithSymptomsSelected; 

< if (invoker . selected > 0); 

= nights_with_syniptoms_label .display = invoker . display; 

j->35 end_if; 
3bSfe end; 

jb»8 function DSWExpiratoryFlowSelected; 
3S8y if (invoker. selected > 0); 

- J- expiratory_flow_label. display = invoker .display; 

ioa^ end_if; 

J 692 end; 

3693 

3b94 function DSWExpiratoryVolumeSelected; 
3695 if (invoker. selected > 0); 

expiratory_volume_label .display = invoker . display; 
3S97 end_if; 

^-J'' # 

3701 # LIPIDS DISEASE STAT3 WIZARD 
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package com.pidsware . pids . conduit; 

import palm. conduit . * ; 

import java.io.*; 

import j ava . net . URLEncoder ; 

* InterventionRecord. java 

*####################################################################### 

* PIDS <tm) 

* Pharmacy Intervention Documentation System 

* PIDS <tm) Conduit for performing Palm HotSync^s 

* Copyright ® 2002 Integrated Software Systems, L.L.C. 

*####################################################################### 

* Subclassed record object for an intervention record on the HH. 

* ©version 1.0 

* ©date 08.10.2001 

* ©author: Todd Viegut & Brad Tice 

public class InterventionRecord extends AbstractRecord { 



28 


private 


double 


int ervent ionKey ; 




private 


double 


synced; 




private 


String 


rotationlD = null; 


31 


private 




locationID = null; 






String 


int ervent ionDate = null 


33 




String 


userlD = null; 






String 


prescribedDrug = null; 






String 


disease = null; 




private 


String 


prescriber = null; 


37 


private 


double 


drugRelatedProblem; 






double 






private 


double 


patientRisk; 




private 


double 


problemType; 




private 


double 


recommendation; 




private 


double 


activity; 




private 


double 


result; 


^- 




double 


interventionDuration; 








patientID = null; 




private 


String 


allergies = null; 




private 




medicalHistory = null; 




private 


String 


f amilyHistory = null; 


49 






socialHistory = null; 




private 


String 


subjective = null; 


51 


private 


String 


objective = null; 


52 


private 


String 


assessment = null; 


53 




String 


plan = null; 



private String followUp = null; 
private String labValues = null; 
private double doiScore; 
public double getActiyity( ) { 



public String getDiseaseO { 
return this . disease; 



Page 1 of 32 



PIPS code li, 



public double getDrugRelatedProblem( ) { 
L this .drugRelatedProblem; 



public String getFollowUpO 
return this . f ollowUp; 



public double getlnterventionKeyO { 
return this . interventionKey; 



public String getMedicalHistory( ) { 
this .medicalHi story; 



public String getObjectiv 
this . objective 



public String getPatientID( ) { 
return this . patientID; 

public double getPatientRiskO { 
this .patientRisk; 

public String getPlanO { 



ring getPrescribedDrug{ ) { 
n this .prescribedDrug; 



public dovible getProblettiTypeO { 
t h i s . pr ob 1 ettiType ; 



le method's description here, 
date: {12/29/2001 11:25:36 AM) 
ava . lang . String 



public String getRotationID( ) { 
.urn this .rotationID; 

public double getRXTypeO { 
this -rxType; 



public String getSubj ective ( ) 
this . subj ective; 
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retSyncedO { 
i . synced ; 



147 
14 g } 

149 /** Returns a null Strina if the parameter s is empty (conta. 

150 */ 

151 String nulllf Empty (String s) { 

152 if ("". equals (s)) { 

153 return null; 

154 } else { 



*bl- 



; a DatalnputStream representing tae body of the hand-held device 
nto Record object members. The format of the DatalnputStream 
understood and translated by the developer. 



2' - 
211 
212 
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» 215 
216 



this!probTemType = 



L . readDouble ( ) ; 



ivity = in. readDouble () ; 



lult = in. readDouble 0 ; 




labValues = readCStrii 
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//=================================: 

// 
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= nulllf Empty (value) ; 



360 
3 SI 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 



public void setPrescribedDrug(String value) { 
this.prescribedDrug = null If Empty (value) ; 



public void setPrescriber (String value) { 
this .prescriber = nulllf Empty (value ) ; 



public void setProblemType (double ■> 
this.problemType = value; 



public void setRotationID(String value) { 
this.rotationID = nulllf En^ty (value) ; 

public void setRXType (double value) { 
lis.rxType = value ; 

public void setSoGialHistory( String value) { 
this . socialHistory = nullIfEmpty(value) ; 

public void setSubj ective (String value) { 
this. subjective = nullIfEmptyCvalue) ; 

public void setSynced (double value) { 
this. synced = value; 

public void setUser ID (String value) { 
this.userlD = nulllf Empty (value) ; 

itic String stringWithoutCarriageRetums(Sti-ing aString) { 
StringBuffer sb = new StringBuf f er( ) ; 

char ch; 

for (i = 0, c = aString. lengthO ; i < c; i++) { 
ch = aString. charAt (i) ; 

if (ch == '\ri && (i + 1) < c && aString. CharAt (i + 1 



sb . append (ch) ; 

} 

return sb . toString ( ) ; 

public String toFormattedString( ) { 

("Intervention record: { 
• getint' 



onKeyO + "\r\n" + 
synced: " + getSyncedO + "\x\r-" + 
rotation IB: " + getRotationID { ) + "\r\n" + 
site ID: " + getLocationlDO + "\r\n" + 
intervention date: " + getlnterventionDate ( ) + ■'\3 
szudenc ID: " + getUserlDO + "\r\n" + 
prescribed drug: " + getPrescribedDrug( ) + "XrXn" 
disease: " + getDiseaseO + "\r\n" + 
prescriber: " + getPrescriber ( ) + "\r\n" + 
drug related probletr. : " + getDrugRelatedProblem( ) 
RX type: " + getRXTypeO + "\r\n" + 
patient; risk: " + getPatientRisk ( ) + "\r\n" + 
problem type: " + getProblemType () + "\r\n'' + 
reccmTendation : " + getRecommendation { ) + "\r\n" ^ 
activiTiy; '■ + getActivity ( ) + "\r\n" + 
result: " + getResultO + "\r\n" + 
intervention duration: " + getlnterventionDuratioi 

patient ID: " + getPatientlDO + "\r\n" + 
allergies: " + getAllergies () + "\r\n" + 



i() + "\r\n" + 
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426 " medical history: " + getMedicalHistoryO + "\r\n" + 

427 " fami_y r.istory: " +• getFamilyHistory ( ) + "\r\n" + 

428 " social history: " + getSocialHistory( ) + "\r'\n" + 
425 " SOAP NOTSS: " + "\r\n" + 

430 " — ===^=.=^=====^^^^ — ^ ^ + "\r\n" + 

431 " s^^bj ecr,ive : " + getSubj ective ( ) + ''\r\ii'' + 

432 " objective: " + getObj ective ( ) + "\r\n" + 

433 " assescment : " + getAssessment ( ) + "\r\n" + 
4 34 " plan: " + getPlanO + "XrXn" + 

435 " follow up: •■ + getFollowUpO + "\r\n\n" + 

436 ".==== = = === = = _^._..==.==^_-.^_^ = =.^^_._. + "XrXn" + 

437 " lab values: " + getLabValues ( ) + "\r\n" + 
4 38 " DOI scorer " + getDOIScoreO + "\r\n" + 
43 9 "}\r\n" + 

440 super. toFormattedString( ) ) ; 

441 } 

442 public string toPostString ( ) { 

443 StringBuffer postString = new StringBuf fer () ; 

444 // 

445 postString 

446 . append ( " p id s_: " ) 

447 .append(URLEncoder. encode (Double. toString(getInterventionKey() ) ) ) 
^-3 . append ("&") 

44^ postString 

s . append ("pids 2='') 

. append (URLEncoder . encode (Double . toString (getSynced { ) ) ) ) 
. append ("&") ; 

4-3 // 

54 postString. append ("piQS_3=") . append (URLigncoder. encode (getRotationID( )) ) .append{ 

55 "&") ; 

56 postString. append("pxds4=") .append(URL3ncoder.encode(getLocationID() ) ) .append( 

'S457 "&") ; 

yl4b8 postString 

%4b9 .append("plds_ S = ") 

460 . append (URLEncoder . encode (getInterventionDate( ) ) ) 

:i . append ( " &" ) ; 

^62 postString. append ("pid3_6=") .append (uaL3ncoder.encode (getUserlDO ) ) . append ("&") ; 

~i3 postString 

A . append ( "pids_7='') 

5 . append (URLEncoder . encode (getPrescribedDrug( ) ) ) 

:6 . append ("S:") ; 

= 467 postString. append ("pids_8=") . append (URLEncoder . encode (getDisease ( ) ) ) .append( 

! 469 postString. append("pids_9=") . append (URLSncoder. encode (getPrescriber () ) ) .append( 

471 // 

472 postString 

473 . append { "pids_lC-") 

474 . append (URLEncoder . encode (Double . toString (getDrugRelatedProbleTn( ) ) ) ) 

475 . append ( "u" ) ,- 

476 postString 

477 . append ( "pids__ll=") 

478 . append (URLBncoder . encode (Do-able . toString (getRXType 0 ) ) ) 

479 . append ( ) ; 

480 postString 

481 . append ( "pids_12=" ) 

482 .append(liRLEncoder.encode(Double.toString(getPatientRisk{) ) ) ) 

483 . append ("&") ,- 

484 postString 

485 . append ("pids__l3 = ") 

486 . append (URLEncoder . encode (Double. toString (getProbletiiType ( ) ) ) ) 

487 . append ( "&" ) ; 

488 postString 

489 . append ("pids_14=") 

490 . append (URLEncoder . encode (Do-able. toString(getRecoiiimendation{) ) ) ) 

491 . append (" <v " ) ,- 
4S2 postString 

493 . append ( "pa.ds__l5=") 

494 . append(URLEncoder. encode (Do-able. toString(getActivity() ) ) ) 

495 .append( "&" ) ; 

496 postString 
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497 .append{»pids_16=") 

493 . append (URLEncoder. encode (Double. toString(getResult() ) ) ) 

4 99 . append {" } ; 
500 postString 

5Q1 . append ("pids_17=") 

502 . append(URLEncoder. encode (Double. toString(getInterventionDuration() ) ) ) 

5 03 .append ("6c") ; 

504 // 

505 postStrlng. append ("pids_18=") . append (URLEncoder. encode (getPatientlDO ) ) .append( 

506 "&"); 

507 postString. append("pids_lS=") .append(U3LEncoder.encode(getAllergies() ) ) .append( 

508 "&"); 

5 09 postString 

510 . append ("plds_2C=") 

511 .append (URLEncoder. encode (getMedicalHistory{ ) ) ) 

512 .append("&") ; 

513 postString 

514 .append("pidB_21=") 

515 .append (URLEncoder. encode (getFamilyHistoryO ) ) 

516 . append ("&") ; 
51 / postString 

3 ' .append( "pids_22=") 

biy .append (URLEncoder. encode (getSocialHistory( ) ) ) 

~? < .append ("St") ,- 

— ' ^ II 

I postString. append("pids_23=") .append( 

^ s ' " USL3ncoder . encode (getSub j active { ) ) ) . append ( 

^'.f- ■^2:> postString. append ("pids_24 = ") . append (URLEncoder . encode (getObj active ( ) ) ) .appendC 

m 526 "&■•) ; 

, ''^ 527 postString. append ("pids_2 5="} .append{ 

M 528 UHLEncoder . encode (getAssesstnent () ) ) . append ( 

yi 523 "&•■); 

K s 530 postString. append ("pid3_2 6= ") .append(URLEncoder.ancode(getPlan{) ) ) . append ("&" ) ; 

^531 postString. append (»pids_2 7= «) .append (URLEncoder. encode (getFollowUpO ) ) . append ( 

*, S^? •■&•■); 

'--^Z- II 

, n postString. append("pids_28=") .append(URLEncoder.encode(getLataValues() )) .append ( 

f ' "&••); 

jj. 3 postString. append("pid3_29=") .append( 

1 I-"" URLSncoder.encode(Bouble.toString(getDOIScore() ) ) ) ; 

r;- 

i S3S return postString. toString ( ) ; 

|J==,0 } 

'■■^ 541 public String toString () { 

:n " Intervention record: <rctation id=" 
■ getRotationlDO 

- getLocationlDO 

- getPatientlDO 

- "> <prescribed drug=" 

- getPrescribedDrugO 

- super. toString {) ; 





public 


void writeData (DataOutpucStre 


am out) throws 




// 
// 
// 
II 
II 






5 57 
559 


INTERVENTION 


HEADER 








II 


PIDS intervention key 
. .v;r2.teDDubLe f this . interventionKey) ; 


C4 
565 
5 66 


II 
II 


Synced 

.writeDouble (this. synced) ; 
Rctatxon ID 
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568 
569 
570 
571 



writeCString (out , stringWithoutCarriageRetu] 
// Site ID 

writeCString (out , StringWithoutCarriageRetu: 

/,/ Intervention Date 

writeCString (out , StringWithoutCarriageRetu: 



s {this . IccationlDi ) ; 

s <this . ir.terventionDate) ) ; 



578 
579 
580 
581 
582 
583 
584 
: 585 
586 



// Prescribed Drug 

writeCString (out , stringWithoutCarriageReturns (this .prescribedDrug) ) 
// Disease 

writeCString (out, StringWithoutCarriageReturns (this .disease) ) ; 



StringWithoutCarriageReturns (this .prescriber) ) ; 



ISVENTION INFO 



6 03 
's 604 
■! 605 
= 606 



// Drug Related Problem 

out . writeDouble (this -drugRelatedProblem) ,- 
// RX Type 

out . writeDouble ( this . rxType) ; 

// Patient Risk 

out -writeDo-able (this. patientRisk) ; 



// Actxvity 

out . writeDouble ( this . activity) ; 



615 
616 
617 
618 
619 
62G 
621 
622 
62 3 
624 
625 
62 6 
627 



itionBuration) ; 



// 

//== = 
// 

//== = 



PATIENT INFO 

ID 

writeCString (out , stringWithoutCarriageRetur 

writeCString (out, StringWithoutCarriageRetur 

writeCString (out , StringWithoutCarriageRetur 
// Famxly History notes 

writeCString (out, StringWithoutCarriageRetur 
// Socxal History notes 

writeCStrxng (out , StringWithoutCarriageRetur 



3{this.patientID) ) 



(thi 



alle: 



3 (this .raedicalHistory) ) ; 
3 (this . f amiiyHistory) ) ; 
3 (this . sccialHistcry) ) ; 
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710 if (this.locationID != null) { 

711 out.write(this.locationID.getBytes() ) ; 

712 out. write (0 ) ; 

713 } 
714 

715 // Interventxon Date 

716 if (this . interventionDate 1= null) { 

717 out. write (this. interventionDate. getBytesO ) ; 



721 //' Student ID 

722 if (this.userlD != null) { 

723 out. write (this.userlD. getBytesO ) ; 

724 out.write{0) ; 

725 } 
726 

727 // Prescribed Drug 

728 if (this.prescribedDrug != null) { 

729 out. write(this.prescribedDrug. getBytesO ) ; 

730 out.write(O) ; 



// Disease 

if (this. disease != null) { 

out. write {this. disease. getBytesO ) ; 
out. write (0) ; 



// Prescriber 

if (this. prescriber != null) { 

out . write (this . prescriber . getBytei 
out.write(O) ; 



INVENTION INFO 



r 7 51 // Drug Related Problem 

.= 752 out. writeDouble (this. drugRelatedProblem) ; 

= 753 

54 // RX Type 

755 out. writeDoiable (this. rxType) ; 

756 

7 57 // Patient Risk 

758 out.writeDouble(this.patientRisk) ,- 

759 

760 /'/ Problem Type 

761 out. writeDouble (this.problemType) ; 

762 
753 



/'/ Activity 

out . writeDouble (this . activity) ; 



/'/ PATIENT INI 

// 
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921 
922 
923 



' "PIDS^CONDUIT", "PIDS" + 
"DIR_DELIKI75R" , " \\ " } , 
" P IDS_Condui t __Do_No;; h inc 
"debug", "true"}, 
"iogfiie- 



"PIDScoi 



928 
929 
93 0 
931 
932 
933 
934 
935 
936 
937 
938 
939 



package com . pidsware . pids . conduit ; 



import j ava 

import j ava 

import java 

import java 

import j ava 

import java 

import java 

import j ava 

import java 



. net. URL; 

net .HttpURLConnectlon; 
. ne t . URLConne c t i on ,• 
ne t . Mai f orraedURLExc ep t i- 
io . InputStreamReader; 
io . lOException; 
io . Buf f eredReader," 
io . CharArrayReader; 
io. Reader; 



import org.xml.sax.*; 

import com.ibm.xml . parsers. NonValidatingDOMParser; 



! 964 
965 
966 
967 



* DOMInterventionURLBuilder . ] ava 

*####################################################################### 

* PIDS (tm) 

* Pharmacy Intervention Documentation System 

* PIDS (tm) Conduit for performing Palm HotSync^s 

* Copyright ^ 2 0 02 Integrated Softv/are Systems, L.L.C. 



■ This class is a non-validating DOM parser which takes in an 
XML formatted intervention, parses it, and dynamically builds 
a URL encoded name/value parameters list that gets sent as a 
POST request to the designated sync URL provided by the user 
on the HH. 



©version 1 . 0 



978 


* ©date 


02 .04 .2002 


979 






Todd Viegut & Brad Tice 




import 


javc 


i. io.OurputStreamWriter; 




import 


jav. 


i. io.PrintWriter; 




import 


javc 


i . io . UnsupportedEncodingSxcepti 


sge 




org 


w3c . dom. Attr; 




import 




w3 c . dom . Document ; 


983 


import 




w3 c . dom . NamedNodeMap; 


989 


import 




w3 c . dom . Node ; 


990 


import 


org 


w3c .dom.NodeList; 


991 


import 


org 


w3 c . dom . Element ; 



Page 14 of 32 



PIPS code listing. java 



2/25/2002 



public class DOMInterventionURLBuilder { 

/** Default parser name. ■'I 

private static final String DEFAULT_PARSER_NAME = 

"cor. ibm-xr-.l .parsers .KonValidatingDOKParser"; 



993 
999 

1001 



UilOl? 



/** Buffer for URL building. */ 
private StringBuffer urlPostString = 



private String syncURL; 



new StringBuf f er () ; 



Instant iationExcept ion. 



private NonValidatingDOMParser parser; 
pubiic DOMInterventionURLBuilder( ) throws ClassNotFoundSxcept ii 

IllegalAccessBxception { 

this (DEFAULT PARSER NAME) ; 

} 

public DOMInterventionURLBuilder(String parserName) throws ClassNotFoundExceptior., 
stantiationSxception, IllegalAccessException { 

^ thi s. parser = (NonValidatingDOMParser) Class. forName (parserName) .newInstanceO ; 

public static void main(String argv[]) { 

String parserName = DEFAULT_PARSER NAME; 

// 

try { 

DOMInterventionURLBuilder urlBuilder = 

new DOMInterventionURLBuilder(parserName) 



.rlBuilder.parse<''intervention_set .xml") ,- 



// 

System. out. println( "Redirect URL: 
System . out . println ( " Pos t String : 
System . out . println ( 

urlBuilder. testPostRequest ( 

urlBuilder . retrievePostStr ing ( ) , 
urlBuilder. retrieveSyncURLO ) ) ; 



urlBuilder. retrieveSyncURLO ) ,- 
urlBuilder. retrievePostStringO ) ; 



// 

urlBuilder. parse ("interve 

// 



ition set : 



1042 
1043 
1044 
1045 
1046 
1047 
1048 
104 9 
1050 
1051 
1052 
1053 



1057 

lose 

1059 



System. out . println ( "Redirect URL : 
System. out .println ( "Post String: 
Sys t em . out . pr int In ( 

urlBuilder . testPostRequest ( 

urlBuilder . retrievePostStringO , 
urlBuilder. retrieveSyncURLO ) ) ; 
} catch (Exception e) { 
e.printStackTraceO ; 

public void parse (Reader reader) { 
try { 

parser . reset O ,- 

// 

this.syncURL = null; 

this. urlPostString = new StringBuffer () ; 



urlBuilder. retrieveSyncURLO ) ; 
urlBuilder. retrievePostStringO ) ; 



// 

InputSource inputSource = 



' InputSource (reader) ; 



// 

this.t: 
} catch (Except: 
String messagi 

r[] char Array = 



(document) ; 
n e) { 

.-all; 



try ■ 



char [50000] ; 



nt size = reader . read (charArray) ; 
message = new String (charArray, 0, 
itch (lOException ioException) { 
message = 

new String ("An error oc cured. 
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processError (message, e) ; 



106(5 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 



public void parse (Strin 
try { 

parser. reset () ; 



r StringBuf ferO ; 



• parser. getDocument 0 ; 



} 



thi s . traverse ( document ) ; 
catch (Exception e) { 
processError (uri, e) ; 



^•f.085 
«ji-086 
*«4087 
£|1l088 
f J =1083 
'•^10 90 
*'^|l0 91 
{fp-092 
^■^093 
■%,094 
g 1095 
ml0 96 
■;!'!l097 

flJioes 

1111099 

:-;iico 

M 511 01 

|:giio2 

? ■.'1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
Ills 



private static void printUsageO { 
System . err . println ( 

"usage : com.pidsware .pids . conduit . BOMInterventicn0RLBuilder (options) 
System. err. println 0 ; 
System.err.println( "options : ") ; 

System. err. printlnC -d nan~.e Specify DOM parser wrapper oy name . '") ; 
System. err. println (" Default parser: " + DEFAXJLT_PARSER_NAME) ; 

System.err.println( " -h This help screen."),- 

private void processError (String message, Throwable exception) { 

EmailSender(message, exception) ; 

i.printStackTrace(System.err) ; 



public String retrieveSyncURLO { 
String syncURL = null; 

// 

Document interventionDoc = this .parser. getDocument () ; 

Element interventionSetRoot = interventionDoc. getDocumentElementO ; 

syncURL = interventionSetRoot.getAttribute("sync_url") ,- 

if { (syncURL == null) |[ (-". equals (syncURL) ) ) { 

NodeList list = interventionSetRoot.getElementsByTagName("sync_uri") ,- 
Node node = list, item (0) ,- 
if (node != null) { 
syncURL = 

( ( (node.getFirstChildO != null) 

&& (node.getFirstChildO .getNode Value 0 !=null)) 
? node.getFirstChildO . getNode Value ( ) 



1128 
1129 
113 0 



HttpURLConnection connection = null; 
Buf f eredReader in = null; 
PrintWriter out = null; 
try { 

syncURL = 

(syncURL. toLowerCase ( ) . startsWith ( " tcp" ) 

? "htzp" + syncURL. substring( syncURL. indexOf(" 
: syncURL) ; 
URL url = new URL (syncURL) ; 
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1131 connection = (HtcpURLConnection) url . openConnection( ) ; 

1132 connection. setRequestMethod{"?OST") ; 

1133 connection. setRequestProperty ( 

1134 "Ccnrent-Ti.'pe", 

1135 "application/x-w-v;w-forra-urlencoded") ; 

1136 connection. setRequestProperty( 

1137 "Content: -length", 

113S Integer. toString (postString. lengthO ) ) ; 

1139 connection. setDoOutput (true) ; 

1140 connection. setDoInput (true) ; 

1141 // 

1142 out = new PrxntWriter (connection. getOutputStream( )) ; 

1143 out.write (postString) ; 

1144 out. flush (); 

1145 // 
1146 
1147 
1148 

—^9 if ((inputLine = in . readLine ( ) ) 1= null) { 

liSu if {{inputLine != null) && ( 1 .equals (inputLine) ) ) 

-J-S-^ ^ syncStatus = Integer. parseint (inputLine) ; 

-i-J-s4 } catch (MalformedURLException malf ormedURLException) { 
malformedURLException.printStackTraceO ,- 

SI156 } catch (Exception e) { 
e.printStackTraceO ; 

= « } finally { 

■0.159 try { 

isO-lSO if (in != null) { 

Hiei in. close {), ■ 



catch (rOExceptii 



.oException) { 



// 

if (out != null) { 
out . close ( ) ; 

} 

// 

if (connection != null) { 

connection. disconnect { ) ; 

} 



1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 



1193 
1194 
1195 
1196 
1197 
119S 
1199 
1200 
1201 



return syncStatus; 



(Node node) 
do? 



private void 
// 

// is there anytning 
if (node == null) { 

} 

// 

NodeList children = null ; 
// 

int type = node . getNodeType () ; 
switch (type) { 

case Node.D0CUMENT_NODE : 

Node d = ((Document) node) . getDocumentElement ( ) ; 

traverse (d) ; 

case Node . ELEMENT_NODE : 

NamedNodeMap attrs = node.getAttributes ( ) ; 
if (attrs != null) { 

Node attrNode = attrs .getNamedItein( "uri_param_ 
if (attrNode != null) { 

NodeList list = attrNode.getChildNodesO ; 
this 

.urlPostString 

.append( ( (this . urlPostString. length( ) 
. append (attrNode. getNode Value ( ) ) 



Page 17 of 32 



PIPS code listing .ja 



1204 
1205 
1206 



1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1213 



i x224 
f<Tl22S 

«.=-_227 

nH228 
f;-229 
'"'1230 
--.23x 
I -1232 



. append ( " - ) 
. append ( 

( ( (node.getFirstChildO !=null) 

&& (node.getFirstChildO .getNode Value () 



Da 



I . net . URLEncoder . encode (node . ge tFirstChild ( ) . getNode Val 



// 

children = node . getChildNodes ( ) ; 

if (children 1= null) { 

int len = children. getLength ( ) ,- 
for (int i = 0; i < len; i++) { 
traverse (children. item (i) ) ; 



case Node . ENTITY_REFERENCE_NODE : 

chi 1 dr en = node . ge t Chi 1 dNode s ( ) ; 
if (children 1= null) { 

int len = children. getLength {) ; 



i++) { 
m(i) ) ; 



case Node'.CDATA_SECTION_NODE : 
case Node . TEXT_NODE : 



f!««il236 
|:!^1237 
.'%_23S 
fl 11239 

, ; - ^ 

I1S1241 

1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 



1260 
12S2 



package com. pidsware . pids . conduit ,- 

import j ava . io . * ; 
import sun . net . smtp . * ; 
/** 

* Ema i 1 Sende r . j ava 

*####################################################################### 

* PIDS (tm) 

* Pharmacy Intervention Documentation System 

* PIDS (tm) Conduit for performing Palm HotSync®s 

* Copyright * 2002 Integrated Softv/are Systems, L.L.C. 

*#################################################################«##### 



,e PIDS (cm) beta test auto error logging fa< 
spawned aa a separate thread which will em; 
cur durxng a Palm HotSync*^ witn PIDS (tm) . 



®vers2.on 1.0 

@date 02.08.2002 

©author : Todd Viegut & Brad Tice 
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public class EmailSender extends Thread \ 
private String errorMsg; 
private Throwable exception; 
public EmailSender () { 
super ( ) ; 

public EmailSender (Runnable target) { 
super (target) ; 



1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 



Niiaoo 

I 1-^301 

'yi3 02 



1316 
1317 
1318 
1313 
1320 
1321 
1322 
1323 
13 24 
1325 
1326 
1327 
1323 
1329 
1330 
1331 
1332 
13 33 
13 34 



; target, String name) { 



public EmailSender (Rui 
super (target, nam< 

public EmailSender (String name) { 
super (name) ; 

public EmailSender (String errorMsg, Throwable exception) { 
super ( ) ; 

this. errorMsg = errorMsg,- 
this. exception = exception; 

public EmailSender (ThreadGroup group, Runnable target) { 
super (group, target) ; 



public EmailSender (ThreadGroup group. String name) { 
super (group, name) ; 

public EmailSender (Throwable exception) { 
super () ; 

this .exception = exception; 

public static void main (String [] args) { 
try { 

throw new java. io. IOException( "T3STING" ) ; 
} catch (java.io.rOException e) { 

EmailSender sender = new EmailSender ("OOO PS. 
sender. start 0 ; 

} 



I date: (2/8/2002 10:32:21 AM) 



public void run 
try { 

SmtpCli< 



r SmtpClientC'nail.i 



smtpClient . from 
smtpClient.to("< 
PrintStream out 
out .println ( "To 
out . println ( " Fr< 



out. println (" Sub j ect : Conduit < 
(this. errorMsg != null) { 
out. println{this. errorMsg) , 



System. err. println ( "Condu; 
wvAv' . pidsware . cot".") ; 
catch (Exception e) { 



)st has the SMTP 
viegs-Saol.coPi") ; 
.nduit_errors®pidsware.com") ; 
: smtpClient. startMessage O ; 
conduit_errors@pidsware . com" 



> bezA support 



1338 
133S 
1340 
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'^^Z package com. pidsware .pids . conduit ; 

-.^=: 

iinport java.util.*; 

13i,i iinport java.net.*; 

1353 iinport java.io.*; 

1354 iinport palm. conduit.*; 
±35i> import org .xml . sax. * ,- 

13 56 import org. xml . sax. helpers .* ; 
1357 

13 58 /** 

"'1359 * 

13 60 * PIDSConduit .]ava 

"■56. * 

13 64 * PIDS (tm) 

|:s3€.365 * Pharmacy Intervention Documentation System 

f!f.3fe6 * PIDS (tm) Conduit for performing Palm HotSync®s 

*jp.367 * Copyrignt ® 2002 Integrated Software Systems, L.L.C. 

U=a368 * 

^||1369 *####################################################################### 

jfasTO * 

['^371 * 

"'■-13'"; * miN SOURCE C0D3 FILE FOR THE PIDS (tm) CONDUIT 

M~13"3 * 

"=1375 * ©version 1.0 

s 3;£ * ©date 08.10.2001 

, ' * ©author: Todd Viegut & Brad "ice 

public class PIDSConduit implements Conduit { 

s' " /■** Reference to all strings used by PIDS Conduit */ 

\ -'■ private static ResourceBundle pidsConduitBundle = 

ResourceBundle.getBundle( "coTT,. pidsware .pids .conduit FTDSCondi-i.-Bunal-=») 

/** Name of the conduit - hardcoded since cannot currently get J 

* 13 3^- private static final String NAME = pidsConduitBundle. getString ( " 
1385 

1355 /** This string should be replaced with the URL of the pre to be copied. 
1337 private static final String PROPS_FILE = 

pidsConduitBundle.getStringC'pids conduit orops") ; 

1388 

1389 /** Vector of interventions to by synced. */ 

1390 private Vector interventions; 

1391 
1392 
13 93 

. 9^ /** 

' ' * PIDSConduit constructor ( 



1399 } 
^--C /*« 

3onf iguration parameters that is called by the 



14.07 public int configure (ConfigureConduitlnfo info) { 

1408 ConduitConf igure config = new ConduitConf igure (inf o, NAME); 

14QS config. createDialogO ; 
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1410 

1411 // Only if the data has changed do we fill the info 

1412 // parameter with the new values from the configuration dig 

1413 if (conf ig.dataChanged) { 

1414 // 

1415 int propsValue = SyncProperties . SYNC_DO_NOTHING; // default 

1416 propsValue = conf ig. saveState; 

1417 

1418 if (config. setDefault) { 

1419 // 

1420 inf o. syncPermanent = propsValue; 

1421 inf o.syncPref = Conf igureConduit Inf o. PREF PERMANENT; 

1422 } ~ 

1423 info.syncNew = propsValue; 

1424 } 

1425 // 

1426 Log.outC'Conf igureConduitlnfo: /n" + info.toStringO ) ; 

1427 // 

1428 return 0; 

1429 } 
143 0 /** 
1431 

14 3 3 * 

-_43- * ©param dbName String Che name of the database for which to display records. 

•"-.4 J 5 */ 

f,!^x43S private void displaylnterventions (String dbName) throws SyncException, lOExceotion { 

^'^-143 / // Open our handheld DB 

I,|3i4-i3 int db = SyncManager. openDB (dbName, 0, SyncManager . OPEN_READ | SyncManager . OPEN WRITE 

Hi I SyncManager. OPEN EXCLUSIVE) ; 

^':1439 

■s.i.440 // Find out how many intervention records there are in the database... 

1=4''- int count = SyncManager. getDBRecordCount (db) ; 

-1 XMLlnterventionRecord record = null; 

// Loop over all records 

for (int i = 0; i < count; i++) { 

record = new XMLInterventionRecord( ) ; 

^ II 
i record. setlndex(i) ; 

J SyncManager. readReGordByIndex(db, record) ; 



t (record. toFormattedStringO ) ; 



// Close DB 

SyncManager. closeDB{db) ; 



®par. 



public static void main (String [] args) { 
// Insert code to start the applicat 
PIDSConduit conduit = new PIDSConduil 



. String representation of the conduit i 



3 and runs a conduit. All condait -specif ic functionality should be 

red in this method. 



* ©param Drops SyncProperties 
*/ 

public void open (SyncProperties props) { 
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byte[] 
// 

try i 



/ / check what type of sync is required 
if (props . syncType == SyncProperties . SYNC DO NOTHING) { 
// 

Log . out (pidsConduitBundle. getString ( " PIDS _Conduit_Do_Hcthing") ) ; 
Log . endSync ( ) ; 



•1491 
1492 
1493 
1494 



// FIRST, before we do any "syncing", we 
purgeDeletedInterventions( "dbPidsXML") ,- 
purgeDeletedInterventions( "dbPids") ; 



St purge all deleted 



mil 

5=»-*1507 

CiSisos 

rs 11509 
[■^1510 
■'^1511 

**1514 

t- 1515 
p5sl516 



// NOW, we can proceed to sync the interventions, 
synclnterventions ( "dbPidsXML '■ ) 

// 

Log. out (pidsConduitBundle. getString{"OK_PIDS_CONDUlT") ) ; 
Log . endSync ( ) ; // Log we are successful 
} catch (Malf ormedURLException ex) { 

processError (pidsConduitBundle. getString ("BAD_URL_SRROR") , 
} catch (SyncException e) { 

processError (pidsConduitBundle. getString ("SyNC_SRROR") , e) ; 
} catch (lOException e) { 

processError(pidsConduitBundle.getString{"Ri*J_HSROR") , e) ; 
} catch (Exception e) { 

processError (pidsConduitBundle. getString ( "RW_=:rror") , e) ; 



1525 
1526 
1527 
1528 
1529 
1530 



1534 
1535 
1536 
1537 
153S 
1539 
1540 
1541 
1542 
1543 
1544 
1545 



l' 

* This method posts a request to synchronize a single intervention 

* record to the synchronization site passed in to it. 

* ®param postString String 

* Oparam syncURL String 

* ©return int 
*/ 

private int postRequest ( String postString, String syncURL) throws SyncException { 
syncStatus = 0; // default is NO" successful... 



// 

HttpURLConnection connection = null; 
Buf f eredHeader in = null; 
PrintWriter out = null; 
try { 

syncITRL = 

( syncURL . toLowerCase ( ) . startsWithC't^cp " ) 

? "htcp" + syncURL. substring (syncURL. indexOf (" : 
: syncURL) ; 
URL url = new URL (syncURL); 

connection = (HttpURLConnection) ur 1 . openConnectionO ; 
■ L. setRequestMethod{ "POST") ; 
L. setReguestProperty( 

••Contenc-T>-pe", 

"application/x-wv.-w- f orx-urier.coded") ; 
connection. setRequestProperty ( 

" Cent enc ~ 1 engt h " , 

Integer. toString (postString. length () ) ) ; 
n.setDoOutput(true) ; 
n. setDoInput (true) ; 

new PrintWriter (connection. getOutputStream( ) ) ; 
t .write (postString) ; 
t.flushO ; 

' InputStreatnReader 
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1551 
1552 
1553 
1554 
1555 
1555 
1557 
1553 
1559 
1560 
i 1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
156S 
15*70 

1572 



// 

if ( {inputLine = in . readLine ( ) ) != null) { 

if ((inputLine 1= null) && ( I equals (inputLine) ) ) 
syncStatus = Integer .parseint (inputLine) ; 

:atch (Exception e) { 

e.printStackTraceO ; 
iinally { 
try { 

if (in 1= null) { 
in. close 0 ; 

} catch (XOExceptio: 

// 

if (out != null) { 
out. close 0 ; 

} 



ioException) { 



ir*1578 
011579 
pi = 1580 
* -^1581 

■yi582 
1111583 
i^- = 1584 

■=^1585 
S 1586 



H1594 
15;3E 
1596 
1597 
1598 
1599 

1600 
1601 
1602 
1603 
1604 



■ This method processes any exception thrown during a HotSync. It alsi 
launches the auto error logging thread which will send an email to 
conduit_errors@pidsware.com. 



private void processError (string message, Throwable exception) { 



// log (ex. toString {) ) ; 



exception.printStackTraceO ; 

// 

+ exception. toString 0 



thod will purge any deleted records from the HH for the database i 



i dbName 



private void purgeDeletedInterventions(String dbName) throws SyncException { 

int db = SyncManager.openDB (dbName, 0, SyncManager.OPEN_READ | SyncManager. OPEN_WRITE 
I SyncManager. OPEN_EXCLUSIVE) ; 
SyncManager . purgeDeletedRecs ( db ) ; 
SyncManager. closeDB(db) ; 



ethod will retr: 



: from the HH the url of the site 1 



* Oparam dbName Strina 
*/ 

private String readSyncURL( String dbName) throws SyncException, lOSxceptie 

String url = null; 
try { 
// 

db = 
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1622 0, 
,0 1623 SyncManager . OPEN_READ | SyncManager.OPEN_EXCLUSIVE) ; 

1624 // 

1625 PrefsRecord record = new Pref sRecord ( ) ; 

1626 // 

1627 record. setlndex (0) ; 

1628 SyncManager. readRecordByIndex(db, record) ; 

1629 // 

1630 if ( (record. getURLO !=null) && {!"". equals (record. getURL ())) ) { 

1631 url = record.getURL 0 ; 

1632 // 

1633 url = 

1534 (url.toLowerCaseO . startsWith( "ccp") 

1635 ? "http" + url . substring (url . indexOf (":•) ) 

1636 : url) ; 

1637 } 

1638 } finally { 

1639 // Close DB 

1640 if (db != -1) { 

1641 ^ SyncManager. closeDB (db) ; 



I h- * Method to synchronize the interventions from the HH to a site on the internet. 

S|-'S49 * 

?vigsQ * oparam dbName String The name of the database that will by synchronized. 

Sx6 1 */ 

|(11652 private void synclnterventions (String dbName) 
J r.j.65j, throws SyncException, lOException { 

S51654 Vector syncedRecords = new Vector (>; 

// 

t' fc String syncURL = readSyncURL( "dbPidsPref s") ; 

// FIRST SYNC XML DATABAS3 

^' II Open our handheld DB 

i 16^4 ^ " 

1665 
1666 

1667 SyncManager. OPEN_READ | SyncManager. OPEN WRITE I SyncManager . OPEN EXCLUSIVE) ; 

1668 " 
1663 // Find out how many intervention records there are in the database... 
1670 int count = SyncManager. getDBRecordCount (db) 

1671 

1672 XMLInterventionRecord record = null; 

1673 // 

1574 DOMInterventionURLBuilder urlBuilder = null; 

1676 // Loop over all intervention records 

1677 CharArrayReader reader = null; 
167 S // 

1679 for (int i = 0; i < count; i++) { 

1580 record = new XMLInterventionRecordO ; 

16S1 // 

1682 record. setlndex (i) ; 

1683 SyncManager . readRecordByIndex(db^ record); 
1634 // 

1685 if (record. getSyncedO == o.o) { 

1586 // 

16S^ // Now use tne DOM Parser co build the POST string for the url... 

ISSS char[] xmlCharArray = 

1689 ( (record. getXMLRecordO !=null) 

1690 ? record. getXMLRecord( ) .toCharArrayO 
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1764 
1765 
1766 



I . pidsware . pids . condui t ; 



±7b9 import java.io.*; 

J./V-U import java.util.*,- 

±77.!. import java.sgl.*; 

""'t * DOMInterventionURLBuilder. java 

1775 * 

^-7C *####################################################################### 

1777 * 

1778 * PIDS (tm) 

x7,3 * Pharmacy Intervention Documentation System 

178 0 * PIDS (ttn) Conduit for performing Palm HotSync'^s 

* Copyright ® 2002 Integrated Software Systems, L.L.C. 

-/^3 *####################################################################### 

-^785 * 

; ^7b6 * This class is a non-validating DOM parser which takes in an 

nn^lSl * XML formatted intervention, parses it, and dynamically builds 

|'|?1788 * a URL encoded narae/value parameters list that gets sent as a 

!,s''5i783 * POST request to the designated sync URL provided by the user 

'1790 * on the HH. 

^l/9x * 

^.797 * ■ 

: ,±793 * ©version 1.0 

■'^«1794 * ©date 12.15.2001 

7 ''3 * ©author: Todd Viegut & Brad Tice 

public class ConduitDebugLog { 

-"-cs private PrintWriter log = null; 

~ i)S ^ Static private ConduitDebugLog instance; // The single instance 

^f,-.x»OjL * DebugLog constructor coiPmenc . 

-.«-.3 private ConduitDebugLog ( ) { 

1 <504 initO; 

1805 } 

1806 public static synchronized ConduitDebugLog getlnstance ( ) { 

1807 if (instance == null) { 

1808 instance = new ConduitDebugLogO ; 

1809 } 

1810 return instance; 

1811 } 

1812 /** 

1813 * Loads properties and initializes the instance with its values. 

1814 */ 

1815 private void initO { 

1816 InputStream is = getClass ( ) . getResourceAsStream( "PIDScond .propert: es ") ; 

1817 Properties dbProps = new Properties () ; 
181S try { 

1819 dbProps. load(is) ; 

1820 String logFile = dbProps .getProperty( " logfile" , "PIDScond. log") ; 

1821 try { 

1822 log = new PrintWriter (new FxleWriter (logFile, true), true); 

1S23 } catch (lOException e) { 

System, err. println( "Can't open tne log file: » + logFile); 

1'-''--' log = new PrintWriter (System, err) ; 

1827 } catch (Exception e) { 

System. err. printlnC'Can't oper the log tile: " + "PIDSCond. leg" + " 

default legging zo standard err."); 

1829 log = new PrintWriter(System.err) ; 
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^ssage to the log file. 



▼ 1836 public synchronized void log(Object ob j , String msg) { 

±a37 log.println(obj .getClassO .getNameO + " f » + new java. util. Date () + "]: 

X.S38 } 

1839 /** 

le^O * Writes a message to the loa file. 

164- */ 

±84^ public synchronized void log (Object ob j , String msg, Throwable exception) { 

log.println(obj .getClassO .getNameO + " f" + new java. util. Date () + "] ; 

!3 -i exception. printStackTrace (log) ; 

Ib^S } 

184S /** 

1847 * Writ< 

1848 */ 

1849 public synchronized void log(String msg) { 

iS50 log.printlnC :" + new java. util .Date () + "I: " + msg); 

J.853 * ^Writes a message with an Exception to the log file. 

p^iiaSB public synchronized void log (String msg, Throwable exception) { 

jglSBS log.printlnC [" + new java. util. Date () + "I: '• + msg) ,- 

M-tSo? exception. printStackTrace (log) ; 

£01858 } 

.,jV1859 /** 

^■^1860 * Starts the application. 

?,ji86l * ©param args an array of command-line arguments 

I -'1862 */ 

:'a863 public static void main (j ava . lang. String [] args) { 

'--1864 // Insert code to start tne application here 

, -SS5 } 



;,1S73 
S74 
1875 
1876 

1877 package com. pidsware . pids . conduit 
1378 

1879 import palm. conduit .* ; 

1880 import java.io.*; 

1881 import j ava .net . URLEncoder ; 

1882 /** 



1885 
1885 



* Pref sRecord. java 

1888 * PIDS ftm) 

1889 * Pharmacy Intervention Documentation System 

1890 * PIDS (tm) Conduit for perforrrdng Palm" HotSync®s 

1891 * Copyright 2002 Integrated Software Systems, L.L C 
1892 

1893 *##################ft##################|i#############|f################### 

1S94 * 

1896 * Subclassed record object for the a preference database record on 

1897 * the HH. 
1398 * 

18S9 * 

1900 * ©version 1.0 
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public class PrefsRecord extends AbstractRecord { 
private double prefsKey; 
private double enableSpeedEntry; 
private String url = null; 
private String locationID = null; 
private String rotationID = null; 
private String userlD = null; 
public double getEnableSpeedEntry ( ) { 
return this . enableSpeedEntry; 



«->---1928 
J".1931 



public double getPref sKeyO { 
return this .pref sKey; 



lulllf Empty(String s) 
.equals (s) ) { 
L null; 



public void readData(Datalnpu.tStreara 
// 

// PREFERENCI 

// 



// PIDS 

this. pref sKey 



n) throws I03xceptii 



// Lab Values 

this . enableSpeedEntry = 

// Wireless URL 

this, url = readCStringd 



n . readDouble { ) ; 



i) ; 



this . locatii 



readCString(in) ; 
readCString(in) ; 



readCStringd 



LocationID (String value) { 
onID = nullIfEmpty (value) ; 



this 

} 

public void setPrefsKey (double value) { 
this .pref sKey = value; 

} 

public void setRotationID(String value) { 
this . rotationID = nullIfEmpty (value) ; 

public void setURL (String url) { 
this. url = nullIfEmpty(url) ; 
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public I 
thii 

} 

<■ static String stringWithoutCarriageReturns(String aString) { 

ly77 StringBuffer sb = new StringBuf fer() ; 

1978 int i, c; 

char ch; 

15)8 0 

19S1 for (1 = 0, c = aString. length 0 ; i < c; i++) { 

1382 ch = aString. charAt (i) ; 

1983 if (ch == 'Xr' && (i + 1) < c && aString . charAt ( i + 1) == 

1984 continue; 

1985 else 

19S6 sb. append ( ch ) ,- 

1987 } 

1988 return sb . toString ( ) ; 

1989 } 

1990 public String toFonnattedString( ) { 
j.y9x return ( 

' "Intervention record: {\r\n" 

3>:?* + getPrefsKeyO 
+ "VrXn" 

^•"-i99o + " enable speed entry: " 

r^'l'S" + getEnableSpeedEntryO 

+ "\r\n" 

%,.vl999 + " url: " 

^';2"00 + getURLO 

fi|'=2 00l + "XrXn" 

.'''='2002 + " location ID- " 

2005 H 

'«2006 H 

i 2C08 + user ID: " 

+ getUserlDO 

+ "\r\n" 

I 2 Ix + "}\r\n- 

! " + super. toFormattedString( )) ; 

U .01^ } 

\ "0 ^ public String toStringO { 

H 2Cio return "prefs recora: <enax>le speed entry=" 

?C16 + getEnableSpeedEntryO 

2 017 + »> <url=« 

2 013 + getURLO 

2019 + «> ^-rotation id-" 

2020 + getRotationlDO 

2021 + •-> <_ocat:ion id=" 

2022 + getLocationlDO 

2023 + "> <user id=" 

2024 + getUserlDO 

2025 + "•> 

2026 + super. toString( ) ; 

2027 } 

202S public void writeData (DataOutputStream out) throws lOBxception { 

2029 ^ 

2030 // PIDS intervention key 

2031 out.writeDouble{this.prefsKey) ,- 
2032 

203 3 // Synced 

2034 out. wrlteDouble( this. enableSpeedEntry) ,- 

2035 

2Q36 // URL 

2037 if (this. url != null) { 

2038 out.write{this.url.getBytes()) ,- 

2039 out. write (0) ; 
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2044 
2045 
2046 
2047 



if (this.locationlD != null) { 

out .write (this . locationlD.getBytej 
out .write (0) ; 



// Rotat 
if (this 



:d != null) { 
i.rotationlD.getBytesO ) ; 



2055 
2056 
2057 
2058 
2 059 
2060 
2061 
2062 



// User ID 

if (this.userlD != null) { 

out.write(this.userlD.getBytes() ) ; 
out. write (0) ; 



"'OTO 

||l072 
^'-2073 
V2074 

t =2076 

-2077 



' 2082 



i 2u8£ 
'' 2087 
2088 
2089 



m . pidsware . pids . conduit ; 



import java.io.*; 
import palm. conduit.* 



* XMLInteirventionRecord . j ava 

*####################################################################### 



PIDS (tm) 

Pharmacy Interventii 

■ PIDS (tm) Conduit f! 
Copyright 2 002 I; 



I Documentation System 

• performing Palm HotSync®; 
egrated Softvvare Syst< 



L.L.C. 

*####################################################################### 

ion stored as XML on 



©version 1.0 

©date 02.04.2002 

©author: Todd Viegut 



;ends AbstractRecord { 



public class XMLInterventionRecord € 

private double interventionKey,- 

private double synced; 

private String xmlRecord = null; 
public double getInterventionKey( ) { 

return this . interventionKey; 

} 

public double getSyncedO { 
return this . synced; 

} 

/** Converts and copies dbPidsXML metrJjers into a DataOutputStn 

* for writing to the hand -held device. 

* The format of the DataCutputStrearr! specific to the record body byte 

* layout of the memo records stored on the hand-held device for the PIDS 

* aparam out Tae DataOutputStream to fill ' 



1 XML record body informatic 
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t buffer.toStringO -, 

} 

21bt> public String toStringO { 

r^Ci StringBuffer buffer = new ScringBuf f er ( ) ; 

2187 buffer, append ("XXL Intervention Record: "') .append 

21»8 .appendC'key: ") . append (getlnterventionKey {) ) .append("\n" 

2189 .append ("synced: ") . append (getSynced () ) .append("\n") 

2190 . append ("xxl: ")- append (getXMLRecord ()). append ( "\r_" ) 
2 ±9 J. . append (super . toString ( ) ) . append ("\n") ; 

r_Si return buffer.toStringO ; 

2.9. } 

2194 public void writeData (DataOutpvatStream out) throws lOException { 

21S5 // XML record 

2196 /* 

21S7 if (this.xmlRecord != null) { 

2198 out .write (t.iis .xmlRecord.getBytes ) ; 

2193 out. write (0) ; 

2200 } 

2201 */ 
22 02 

2203 // PIDS intervention key 

2204 out. writeDouble (this. interventionKey) ; 

2205 

22 06 // Synced 

f*s2207 out. writeDouble (this .synced) ,- 

*;52209 // Rotation ID 

lts2210 if (this.xmlRecord 1= null) { 

f|1221l out.write(this.xmlRecord.getBytes() ) ,- 

L°2212 out. write ( 0) ; 

.MF2213 } 

^■?^2214 //writeCString<out, stringWithoutCarriageReturns (this .xmlRecord) ) ; 

11^2215 } 



:2216 

'va2217 
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